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ABSTRACT 

This  thesis  uses  the  Ada  programming  language  in  the  design  and  development 
of  an  air-to-air  missile  flight  simulation  with  object  oriented  techniques  and  sound 
software  engineering  principles.  The  simulation  is  designed  to  be  more 
understandable,  modifiable,  efficient  and  reliable  than  earlier  FORTRAN 
simulations.  The  principles  of  abstraction,  information  hiding,  modularity,  high 
cohesion  and  low  coupling  are  used  to  achieve  these  goals.  The  resulting  simulation 
is  an  accurate  mapping  of  the  problem  space  into  software.  The  simulation  is  a  three 
Degree-of-Freedom  (3-DOF)  model  of  RF/IR  guided  air-to-air  missile.  Two  targets 
are  also  modeled.  The  simulation  is  primarily  intended  to  study  missile  kinematics. 
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I.   INTRODUCTION 

A.   BACKGROUND 

The  ever  increasing  cost  and  complexity  of  modern  weapon  systems  forces  new 
demands  on  the  test  and  evaluation  (T&E)  process.  More  extensive  testing  is 
required  with  fewer  resources.  This  thesis  explores  one  aspect  of  the  T&E  process 
as  it  relates  to  air-to-air  guided  missiles. 

In  the  early  days  of  missile  T&E  (circa  late  1940s),  missile  performance  capability 
was  determined  solely  through  flight  test,  that  is,  actual  missile  launches.  The 
realization  that  all  the  T&E  data  requirements  could  not  be  met  with  a  limited 
number  of  launches  led  to  captive-carry  flight  test,  laboratory  testing,  and  simulation 
to  complement  the  missile  launches.  Today's  data  requirements  have  grown  in 
response  to  the  increased  missile  sophistication  and  mission  complexity.  It  is  not 
unusual  for  a  single  flight  test  to  cost  more  than  a  million  dollars.  Due  to  the 
increased  data  requirements  and  increased  cost  of  flight  test,  missile  flight  simulation 
is  receiving  more  and  more  attention. 

There  are  three  levels  of  missile  flight  simulation  in  terms  of  cost  and  complexity. 
Real-time  hardware-in-the-loop  (HIL)  simulation  integrates  actual  missile  hardware 
with  special  test  and  instrumentation  equipment  in  a  laboratory  environment.  The 
simulation  software  typically  runs  on  a  high-speed  special  purpose  computer  that 
drives  the  test  equipment  and  missile  hardware.    The  real-time  HIL  simulation 


requires  a  major  development  effort  of  approximately  thirty-five  to  forty  man  years 
and  costs  from  five  to  ten  million  dollars  [Ref.  1].  The  second  level  of  simulation  is 
the  all  digital  six-degree-of-freedom  (6-DOF)  missile  flight  simulation.  Six-degree-of- 
freedom  indicates  that  the  simulation  computes  forces  and  moments  for  all  three 
axes.  The  6-DOF  simulation  incorporates  sophisticated  models  for  various  missile 
subsystems  and  runs  on  a  mainframe  class  computer.  The  6-DOF  runs  many  times 
slower  than  real-time.  For  example,  an  actual  missile  flight  that  might  take  thirty 
seconds  to  complete  in  real-time  might  take  eighteen  hours  to  run  to  completion 
using  a  6-DOF  simulation.  The  6-DOF  simulation  requires  a  development  effort  of 
4-6  man  years. 

This  thesis  will  concentrate  on  the  third  level  of  simulation,  the  fast  analytical 
simulation  (FAS).  Simulations  of  this  class  are  a  rapid  and  inexpensive  tool  allowing 
missile  systems  analysts  to  study  overall  missile  response  or  capability  expeditiously. 
The  FAS  is  a  three  degree-of-freedom  (3-DOF)  simulation,  usually  the  forces  are 
computed  for  all  three  axes  (the  moments  are  ignored)  and  a  three  dimensional 
space  is  represented.  Alternately,  a  3-DOF  might  represent  a  planar  two 
dimensional  view  where  forces  acting  on  two  axes  are  computed  while  moments  are 
computed  about  the  remaining  axis.  The  FAS  is  intended  to  be  easily  accessible  via 
personal  computers  to  provide  results  in  a  timely  fashion.  A  user  enters  initial 
conditions  and  results  are  presented  within  a  few  minutes. 


B.   CURRENT  PRACTICES:  PROBLEMS  AND  LIMITATIONS 

The  same  problems  are  common  to  all  three  levels  of  missile  flight  simulation. 
The  basic  problems  are  that  the  simulations  are  extremely  difficult  to  understand  and 
to  modify.  The  causes  of  these  problems  stem  from  the  methods  (or  more  accurately 
the  lack  of  methods)  and  language  used  to  implement  the  simulations.  The  difficulty 
in  understanding  and  modifying  the  simulations  introduces  problems  with  efficiency 
and  reliability. 

The  simulations  are  usually  developed  by  physicists  or  aerospace  engineers  using 
the  FORTRAN  programming  language.  Their  main  goal  is  "just  to  get  something  up 
and  running".  Typically  these  people  have  little  or  no  training  in  modern  software 
engineering  principles.  The  resulting  simulations  are  poorly  structured  and  violate 
most  commonly  accepted  programming  principles.  Typical  characteristics  of  these 
simulations  are: 

1.  The  simulations  are  monolithic  pieces  of  code  using  many  GOTO  statements. 

2.  Most  variables  are  treated  as  global. 

3.  Common  data  areas  are  used  for  communication  between  subroutines. 

4.  Cryptic  variable  names  are  used  (FORTRAN  variable  names  are  limited  to  six 
characters). 

5.  The  simulations  are  limited  to  very  simple  data  structures  (multi-dimensional 
arrays  are  usually  the  most  sophisticated  data  structures  found). 

6.  Programming  through  side  is  common. 

7.  The  simulations  have  little  or  no  comments  or  formal  documentation. 


The  new  analyst  will  usually  require  at  least  six  months  to  gain  a  basic 
understanding  of  how  the  simulation  works,  even  if  he  or  she  has  an  excellent 
understanding  of  missile  systems.  An  understanding  of  the  simulation  is  critical  if 
results  are  to  be  interpreted  correctly.  It  is  not  uncommon  for  the  original 
developers  of  a  simulation  to  move  on  to  other  jobs,  leaving  the  analysts  responsible 
for  maintaining  and  modifying  the  simulation.  Changes  in  the  production  missile's 
software  or  hardware,  regularly  occurring  events,  must  be  accurately  reflected  in  the 
simulation  code.  Changes  or  patches  introduced  to  the  simulation  code  invariably 
make  the  code  more  obscure  and,  more  often  than  not,  produce  undesirable  side 
affects  or  bugs.  Debugging  these  types  of  problems  is  incredibly  time  consuming  and 
difficult. 

After  numerous  patches  have  been  applied  the  simulation  software  becomes 
unreliable  and  inefficient.  Wildly  different  results  are  obtained  for  slightly  different 
initial  conditions.  The  real-time  HIL  simulations  no  longer  run  in  real-time.  The 
6-DOF  simulations  may  take  days  to  solve  a  problem  and  the  3-DOF  FAS 
simulations  take  hours  -  what  once  required  hours  and  minutes  respectively.  Disk 
and  main-memory  capacity  become  issues.  What  was  once  a  tool  enabling  scientists 
and  engineers  to  analyze  complex  systems  has  become  an  unwieldy  demanding 
burden  of  questionable  value. 


C.  MOTIVATION  AND  GOALS 

Current  missile  flight  simulations  are  difficult  to  understand  and  modify,  hence 
inevitably  become  inefficient  and  unreliable.  What  is  needed  is  a  method  that  more 
closely  represents  the  problem  space  allowing  simulations  to  be  developed  that  are 
easy  to  understand  and  modify.  This  thesis  will  explore  the  use  of  object  oriented 
techniques  using  the  Ada  programming  language,  in  conjunction  with  contemporary 
software  engineering  principles,  to  implement  a  missile  flight  simulation.  This 
simulation  should  be  easily  understood  in  a  reasonable  amount  of  time  and  readily 
accommodate  change.  Additional  goals  include  producing  code  that  is  efficient  and 
reliable. 

D.  THESIS  ORGANIZATION 

Chapter  II  presents  a  brief  view  of  object  oriented  development  philosophy  and 
technique  using  Ada.  Chapter  III  discusses  the  problem  space,  the  flight  simulation 
of  an  air-to-air  guided  missile.  Chapter  IV  presents  a  user-level  view  of  the 
simulation.  Chapter  V  concentrates  on  the  simulation  control  and  support  objects, 
while  Chapter  VI  discusses  the  missile,  launcher,  and  target  objects.  Thesis 
conclusions  and  recommendations  are  presented  in  Chapter  VII. 


II.   OBJECT  ORIENTED  TECHNIQUES  WITH  ADA 

A.   OBJECTIVES  OF  OBJECT  ORIENTED  TECHNIQUES 

The  goal  of  object  oriented  techniques  is  to  produce  software  that  is 
understandable,  easy  to  modify,  efficient,  reliable  and  reusability.  Object  oriented 
techniques  build  on  sound  software  engineering  principles  to  encapsulate  data  and 
procedures  into  objects.  Object  oriented  techniques,  which  capture  the  real  world 
problem  space,  map  well  into  the  Ada  programming  language. 

1.  Understandability 

Understandability  is  critical  to  the  management  of  complex  software  systems. 
It  is,  without  a  doubt,  the  most  important  factor  of  a  simulation  to  an  analyst  or 
person  responsible  for  maintaining  the  simulation.  The  software  solution,  that  is  the 
simulation,  should  be  an  accurate  model  of  the  real  world  problem.  Software  can 
be  thought  of  as  being  understandable  on  both  a  micro  and  macro  level.  Code  at  the 
micro  level  should  have  a  style  that  is  very  readable.  At  the  macro  level  data 
structures  and  algorithms  should  be  able  to  be  identified  as  mapping  from  the  real 
world  problem  space.  Understandability  also  tends  to  be  tied  to  the  programming 
language  used  and  its  richness  of  expression. 

2.  Modifiability 

Well  designed  software  should  readily  permit  change.  Modification  is  usually 
required  due  to  a  change  in  requirements  or  to  correct  to  an  error.    Changes  in 


missile  simulation  code  are  required  to  explore  new  concepts,  or  as  a  result  of  missile 
hardware  or  software  upgrades.  Many  changes  are  not  planned.  Ideally  changes 
should  not  alter  the  fundamental  architecture  of  the  software  solution. 

3.  Efficiency 

Efficiency  is  the  optimal  use  of  two  fundamental  computer  resources  -  storage 
space  and  execution  time.  Both  of  these  resources  are  dependent  underlying 
hardware,  yet  both  resources  are  equally  dependent  on  the  software.  An  efficient 
missile  simulation  should  provide  better  user  response  and  more  functionality  than 
an  inefficient  simulation. 

4.  Reliability 

The  goal  of  reliability  is  to  prevent  failure,  and  to  some  extent,  recover  from 
failure  in  a  graceful  manner.  Failure  in  a  missile  simulation  might  be  defined  as 
anything  from  a  program  that  crashes  to  a  program  that  produces  results  that  do  not 
agree  with  flight  test  data  or  produces  inconsistent  results.  A  reliable  missile 
simulation  will  provide  results  that  are  consistent  with  real  world  experiences  and 
give  meaningful  indications  when  potential  problems  might  arise  (e.g.,  limits 
exceeded  or  incorrect  user  input). 

5.  Reusability 

The  goal  of  reusability  is  to  provide  software  components  to  build  software 
much  the  same  way  hardware  engineers  build  circuits  from  standard  off-the-shelf 
components.  The  development  of  software  systems  can  be  dramatically  reduced  by 
using  software  components  that  have  already  been  debugged  and  tested.    These 


components  can  form  libraries  of  commonly  used  objects.      Systems  may  be 
constructed  from  these  libraries.  These  systems  then  may  be  added  to  the  library. 

B.   OBJECT  ORIENTED  PRINCIPLES 

Through  abstraction,  information  hiding  and  modularity,  object  oriented 
techniques  encapsulates  data  and  procedural  abstractions  to  form  objects.  Objects 
modularize  both  information  and  processing,  rather  than  processing  alone.  Object 
oriented  techniques  establish  a  mechanism  for  (1)  a  representation  of  data  structures, 
(2)  the  specification  of  process  and  (3)  the  invocation  procedure.  An  object  is  an 
element  of  the  real  world  mapped  into  the  software  domain.  The  object  consists  of 
operations  which  act  on  data  structures  in  response  to  messages  sent  to  that  object 
from  other  objects.  The  operations  and  data  structures  are  hidden,  that  is  the 
implementation  details  are  unknown  to  the  user  of  the  object.  The  interface  to  the 
object  is  the  only  portion  visible  to  the  user.  The  interface  is  a  set  of  well  defined 
messages  that  specify  what  operation  on  the  object  is  desired.  Object  oriented 
techniques  can  aid  sound  software  engineering  principles.  These  principles  include 
abstraction,  information  hiding,  modularity,  loose  coupling,  and  strong  cohesion  [Ref. 

2]. 

1.  Abstraction 

Many  of  the  problems  found  with  the  missile  flight  simulations  are  due  to  their 
complexity.  Abstraction  is  a  powerful  concept  that  helps  one  deal  with  complexity. 
Abstraction  concentrates  on  the  essential  aspects  of  a  problem,  while  omitting  the 
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details.  There  may  be  many  levels  of  abstraction  constructed  when  solving  a 
problem.  At  the  top  level  of  a  missile  simulation,  abstraction  would  reveal  the 
essential  entities  -  the  missile,  target,  and  environment.  Moving  to  the  next  lower 
level  of  abstraction  within  the  missile,  this  level  might  be  thought  of  as  being 
composed  of  various  subsystems,  such  as  the  seeker,  the  guidance  section,  the 
autopilot,  and  the  airframe.  Moving  to  the  next  lower  level  of  abstraction,  arbitrarily 
choosing  the  missile  seeker  for  example,  would  reveal  the  data  structures  and 
procedures  used  to  model  the  seeker.  Only  the  lower  levels  of  abstraction  expose 
the  specific  details  of  a  solution. 

2.  Information  Hiding 

Information  hiding  conceals  the  implementation  details  of  a  solution  that 
should  not  affect  other  parts  of  a  system.  Through  information  hiding  only  the 
essential  aspects  of  a  solution  are  visible,  while  the  implementation  details  or  "how" 
of  a  solution  are  hidden.  Hiding  low  level  design  decisions  prevents  the  higher  levels 
of  abstraction  from  being  dependent  on  implementation  details.  This  approach  aids 
abstraction  and  increase  the  modifiability  of  the  solution. 

3.  Modularity 

The  importance  of  modularity  in  software  design  has  been  recognized  for  some 
time.  According  to  Myers  [Ref.  3],  "Modularity  is  the  single  attribute  of  software  that 
allows  a  program  to  be  intellectually  manageable."  In  monolithic  software,  such  as 
the  missile  simulations,  the  number  of  control  paths,  number  of  variables  and  the 
overall  complexity  make  understanding  difficult.  Ideally,  software  is  decomposed  into 


modules  along  logically  and  functionally  independent  lines.  Modularity  supports  our 
notion  of  abstraction.   High-level  modules  specify  "what"  is  to  be  done.   Low-level 
modules  specify  "how"  that  action  is  to  take  place. 
3.  Cohesion  and  Coupling 

Modules  in  software  systems  can  be  thought  of  as  having  two  important 
characteristics,  cohesion  and  coupling.  Cohesion  attempts  to  characterize  to  what 
degree  a  module  performs  a  single  function  or  serves  a  single  purpose.  A  highly 
cohesive  module  would  be  one  in  which  the  module  performs  a  single  task  that 
requires  little  or  no  interaction  with  other  modules  in  a  program.  A  module 
exhibiting  low  cohesion  would  perform  many  different  functions  and  interact  with  a 
large  number  of  other  modules.  Modules  that  are  highly  cohesive  are  easier  to 
understand  and  are  more  amenable  to  change  than  modules  exhibiting  low  cohesion. 
Coupling  is  measure  of  interconnection  among  modules  in  a  program.  Modules 
with  high  coupling  have  a  complex  interfaces  and  make  use  of  data  or  control 
information  found  in  other  modules.  Modules  with  low  coupling  have  relatively 
simple  interfaces  and  make  use  of  only  the  data  or  control  information  presented  by 
the  interfaces  of  other  modules.  Changes  made  to  modules  with  low  coupling  are 
less  likely  to  cause  unwanted  effects  in  other  modules,  that  is  the  ripple  effect  is 
minimized.  Like  modules  that  are  highly  cohesive,  modules  with  low  coupling  are 
easier  to  understand  and  modify. 
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4.  Inheritance 

Inheritance  is  an  object  oriented  concept  that  permits  the  organization, 
building  and  reuse  of  software  [Ref.  4].  In  a  limited  view  of  this  concept,  new  objects 
may  be  defined  to  inherit  the  capability  and  functionality  of  other  previously  defined 
objects.  The  new  objects  may  extend  the  capability  and  functionality  of  the  original 
object  by  adding  new  capabilities  and  functionalities.  Conversely  the  new  object  may 
be  defined  to  eliminate  or  limit  certain  capabilities  of  the  original  object.  Once  an 
object  has  been  developed,  it  may  be  reused  with  minimal  effort  through  inheritance, 
reducing  development  time. 

C.   OBJECT  ORIENTED  METHODOLOGY  WITH  ADA 
1.  Ada  Packages 

The  object  oriented  philosophy  maps  well  into  the  Ada  programming  language. 
Ada  has  a  wide  set  of  constructs  for  providing  primitive  objects  and  operations. 
These  constructs  serve  to  build  the  implementation  level  of  the  objects.  Ada's 
packaging  concept  is  conceptually  similar  to  objects  and  provides  the  means  to 
encapsulate  objects.  According  to  Booch  [Ref.  5],  "A  package  is  a  collection  of 
computational  resources,  which  may  encapsulate  data  types,  data  objects, 
subprograms,  tasks  or  even  other  packages."  An  Ada  package  consists  of  a 
specification  and  a  body  [Ref.  6].  The  specification  identifies  the  information  that 
is  visible  to  the  user  of  that  package.  The  package  body  contains  the  implementation 
details  of  the  package  which  should  (and  can)  remain  physically  and  logically  hidden 
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from  the  user.  The  specification  and  body  may  be  compiled  separately  to  enforce 
the  separation  of  the  specification  or  interface  from  the  body  with  its  implementation 
details.  The  specification  can  serve  to  define  the  messages  associated  with  an  object. 
The  object  responds  in  the  appropriate  manner  to  these  messages.  These  messages 
might  map  to  function  or  procedure  calls  and  their  input  or  output  variables. 

Ada  packages  can  be  used  to  provide  reusable  software  components.  Packages 
of  commonly  required  objects  can  form  libraries  where  they  may  be  withdrawn  and 
reused.  Ada's  generic  unit  feature  supports,  in  a  limited  way,  the  object  oriented 
principle  of  inheritance.  A  generic  package  serves  as  a  template  for  an  object  [Ref. 
7].  The  generic  object  can  then  be  instantiated  with  all  the  features  of  the  generic 
object,  along  with  any  additional  features  required  of  that  particular  instantiation. 
For  example,  a  generic  stack  or  list  object  might  be  instantiated  for  each  occurrence 
of  a  different  data  type,  along  with  the  additional  capabilities  that  make  sense  for 
that  particular  data  type. 
2.   Methodology 

This  thesis  uses  an  object-oriented  development  technique  similar  to  that 
advocated  by  Booch  [Ref.  5]  and  first  proposed  by  Abbott  [Ref.  8].  The  development 
process  involves  five  steps.  First,  identify  the  objects  and  their  characteristics  or 
attributes  as  they  exist  in  the  problem  space.  Often  a  concise  problem  statement  is 
useful  in  identifying  objects.  The  nouns  of  the  problem  statement  serve  to  identify 
potential  objects.  The  second  step  is  to  identify  the  operations  that  characterize  the 
behavior  of  the  objects  identified  in  the  first  step.    These  should  be  meaningful 
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operations  that  can  be  performed  on  the  object.  Verbs  associated  with  an  object 
noun  in  the  problem  statement  can  aid  in  the  identification  of  meaningful  operations. 
During  this  step  time  and  space  constraints  are  formed  to  define  the  dynamic 
behavior  of  the  objects.  The  scope  and  ordering  of  operations  might  be  defined  for 
example.  The  third  step  is  to  establish  the  visibility  of  the  objects  with  relation  to 
one  another.  This  step  attempts  to  specify  what  objects  "see",  and  what  are  "seen" 
by  a  given  object.  This  serves  to  map  the  problem  space  into  the  objects.  The  fourth 
step  is  to  define  the  interfaces  to  the  objects.  To  do  this  an  object  specification  is 
produced  which  "forms  the  boundary  between  the  outside  view  and  the  inside  view 
of  an  object."  This  maps  directly  into  the  Ada  package  specification  construct.  The 
final  step  is  to  implement  each  object  by  designing  suitable  data  structures  and 
algorithms  and  to  implement  the  corresponding  interface  from  the  fourth  step.  Also 
at  this  step  it  is  important  to  remain  aware  of  the  software  engineering  principles  of 
modularity,  high  cohesion  and  low  coupling.  Note  that  this  whole  process  can  be 
recursive,  that  is,  an  object  might  further  be  decomposed  into  subordinate  objects. 
The  key  point  of  this  method  is  the  accurate  mapping  of  the  problem  space  into 
software.  This  mapping  preserves  the  real  world  view  of  the  problem,  and  if  done 
properly,  tends  to  produce  code  that  is  easily  understood.  Object  oriented  techniques 
also  lend  themselves  well  to  the  software  engineering  principles  discussed  earlier. 
Through  object  oriented  techniques  and  sound  software  engineering  principles,  our 
goals  of  producing  a  missile  flight  simulation  that  is  easy  to  understand,  easy  to 
modify,  efficient  and  reliable  can  be  realized. 
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III.   THE  PROBLEM  SPACE 

A.   INTRODUCTION 

An  air-to-air  guided  missile  is  designed  to  be  carried  on  an  aircraft  and  launched 
at  an  airborne  target.  After  launch  the  missile  guides,  using  its  sensors,  on  the  target 
to  intercept.  Air-to-air  missile  sensors  may  be  radar,  infrared  or  a  combination  of 
both  types.  Once  the  missile  detects  the  target,  it  tracks  and  guides  on  the  target  by 
generating  steering  commands  that  will  set  a  course  to  intercept  the  target.  The 
missile  flight  simulation  attempts  to  represent  or  model  the  missile  and  its 
environment. 

The  missile  flight  simulation  models  a  subset  of  the  missile  systems,  the  kinematics 
-  consisting  of  the  missile  dynamics  and  the  missile-target  geometry,  and  the  target. 
At  the  top  level  view,  the  simulation  computes  the  forces  acting  on  the  missile  (e.g., 
thrust,  drag,  and  gravity)  and  from  these  forces  derives  accelerations  to  compute  the 
missile's  spatial  trajectory  from  launch  to  target  intercept.  Figure  3.1  is  a  top-level 
block  diagram  of  a  missile  flight  simulation  indicating  the  relationships  of  the  various 
models.  The  missile  subsystems  are  represented  by  the  Autopilot,  Airframe,  and 
Guidance  blocks.  The  blocks  labeled  Missile  Dynamics  and  Missile-Target  Geometry 
compute  the  kinematics.  The  Target  block  here  represents  a  single  target,  but  in 
most  simulations  more  than  one  target  is  modeled.  The  missile  airframe  model, 
given  its  achieved  accelerations,  computes  the  forces  acting  on  it  for  use  in  the 
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Figure  3.1  Missile  Flight  Simulation 
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target  geometry,  which  is  passed  to  the  guidance  model.  Acceleration  commands, 
which  will  enable  the  missile  to  intercept  the  target,  are  computed  by  the  guidance 
model  and  provided  to  the  autopilot.  The  autopilot  responds  with  the  achieved 
accelerations,  which  are  passed  to  the  airframe  model. 

B.   THE  AIR-TO-AIR  GUIDED  MISSILE 

The  missile  consists  of  a  number  of  subsystems.  These  typically  are  the  airframe, 
flight  control,  guidance,  warhead,  propulsion,  data  link  and  telemetry.  The 
subsystems  modeled  in  a  simulation  are  the  airframe,  autopilot,  guidance,  and 
propulsion  [Ref.  1].   In  addition,  the  atmosphere  and  kinematics  are  modeled. 

1.  The  Airframe 

The  missile  airframe  actuates  or  deflects  the  control  surfaces  which  steer  the 
missile.  The  missile  is  modeled  as  a  rigid  body  and,  as  such,  body  and  control 
surface  bendings  are  not  represented.  The  airframe  is  represented  in  terms  of  a 
reference  axes  system.  Figure  3.2  illustrates  the  missile  reference  axes  systems  where 
x,  y,  and  z  are  the  primary  missile  reference  or  body  axis  system  and  the  axes  with 
the  a  subscript  represent  the  missile  autopilot  or  inertial  axis  system. 

Roll  (<f>)  is  angular  motion  about  the  x-axis,  pitch  (9)  is  angular  motion  about 
the  y-axis,  and  yaw  (ip)  is  angular  motion  about  the  z-axis.  The  missile's  angle  of 
attack,  alpha  (a),  is  the  angle  between  the  missile's  velocity  vector  (V)  and  its  x-axis. 
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Figure  32  Missile  Reference  Axes 

Three  force  equations  describe  the  forces  experienced  by  the  missile  along 

each  axis.  There  is  one  force  equation  for  each  axis  as  follows: 

£  Fx  =  m  *  a, 
E  Fy  =  m  *  ay 

S  Fz  =  m  '  ^ 

These  represent  Newton's  classic  relation  that  force  is  the  product  of  mass  and 
acceleration.   Here  we  resolve  the  forces  into  components  along  each  missile  axis. 

These  force  equations  describe  the  dynamics  of  the  airframe.  Aerodynamics 
is  the  science  applied  to  predicting  these  forces.  These  forces  are  expanded  in  terms 
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of  aerodynamic  parameters  and  coefficients  [Ref.  9].     For  example,  the  x-axis 
equation  becomes: 

E  Fx  =  m  *  a,  =  Fp  +  (Cda  *  aq  *  S)  +  (Cd,  *  6  *  q  *  S) 

The  first  term  in  the  above  equation  is  the  propulsion  force.  The  second  term 
is  the  product  of  the  drag  coefficient  for  a  given  angle  of  attack  (Cda),  the  angle  of 
attack  (a),  and  the  missile  reference  area  (S).  The  third  term  is  the  product  of  the 
drag  coefficient  for  a  given  control  surface  deflection  (Cd5),  the  control  surface 
deflection  (5),  the  aerodynamic  pressure  (q),  and  the  missile  reference  area  (S).  The 
aerodynamic  coefficients  are  a  function  of  angle  of  attack,  control  surface  deflection, 
roll  angle  and  mach  number.  The  aerodynamic  parameters  and  forces  are  provided 
to  the  airframe  model  by  the  missile  dynamics  model,  and  the  autopilot  model 
provides  the  commanded  accelerations  as  input.  The  airframe  model  computes  the 
forces  it  is  "experiencing"  and  sends  these  values  to  the  kinematics  model  (see  Figure 
3.3). 

2.   Kinematics:  Missile  Dynamics 

The  kinematics  model  serves  two  functions:  to  compute  missile  dynamics  and 
to  compute  the  missile-target  geometry  (see  Figures  3.4  and  3.5).  Inputs  to  the 
missile  dynamics  function  are  the  airframe  forces  computed  in  the  airframe  model. 
From  these  values,   and  from  initial   conditions,   the   dynamics  model  derives 
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Figure  3.3  Airframe  Model 

acceleration,  velocity,  position  data,  and  flight-path  variables.  Angles,  angular  rates, 

and  accelerations  represent  the  inertial  quantities.  These  inertial  quantities  simulate 
the  inertial  sensor  measurements  the  missile  would  experience. 

Aerodynamic  parameters,  such  as  mach  and  velocity,  are  fed  back  to  the 
airframe  model.  The  derived  acceleration,  velocity,  and  position  variables  are  sent 
to  the  missile-target  geometry  model.  The  kinematics  model  also  transforms  data 
between  the  two  reference  coordinate  systems,  that  is,  between  the  airframe 
reference  system  known  as  the  body  coordinate  system  (x,y,z)  and  the  autopilot 
reference  system  known  as  the  inertial  coordinate  system  (Xa,Ya,Za). 
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3.  Kinematics:  Missile-Target  Geometry 

The  primary  purpose  of  the  missile-target  geometry  portion  of  the  kinematics 
model  is  to  compute  the  missile-target  engagement  geometry  parameters.  These 
values  are  sent  to  the  missile  guidance  model  to  steer  the  missile  to  the  target. 
Inputs  to  the  missile-target  geometry  model  are  missile  acceleration,  velocity,  and 
position  data  from  the  missile  dynamics  model,  and  target  acceleration,  velocity,  and 
position  from  the  target  model.  These  inputs  are  used  to  compute  range  rate 
(closing  velocity),  missile  to  target  range,  line-of-sight  (LOS)  rate,  LOS,  and  time  of 
flight.  The  simulation  is  terminated  on  range  or  time  constraints  determined  by  this 
model.   The  computed  information  is  sent  to  the  missile  guidance  model. 

4.  Missile  Guidance 

The  guidance  model  represents  the  missile  guidance  law  (see  Figure  3.6).  The 
guidance  law  determines  what  trajectory  will  cause  the  missile  to  intercept  the  target. 
Missile  guidance  can  be  classified  by  the  type  of  sensor  is  used  to  provide  target 
information.  Common  sensors  are  RF  (radar),  or  infrared  (IR).  A  missile  may  use 
a  combination  of  RF  and  IR  seekers.  The  actual  missile  guidance  section  is  very 
complex  and  sophisticated,  hence,  extremely  difficult  to  model.  Most  simple 
simulations  assume  a  perfect  guidance  section  that  uses  a  modified  proportional 
guidance  law. 

An  important  parameter  in  guidance  is  the  line-of-sight  (LOS).  The  line-of- 
sight  is  the  direction  the  missile  "looks"  in  order  to  "see"  the  target.    This  is  an 
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imaginary  line  from  the  missile's  seeker  to  the  centroid  of  the  target.   It  has  been 

proven  that,  given  constant  target  and  missile  velocities,  if  the  LOS  angle  between 
the  target  and  the  missile  remains  constant  an  optimum  trajectory  will  be  achieved, 
resulting  in  a  minimum  miss  distance  [Ref  1].  If  the  LOS  angle  is  to  remain  constant 
then  the  LOS  rate  must  be  zero.  The  LOS  rate  is  computed  in  the  guidance  section 
and  multiplied  by  the  navigation  ratio  N  and  sent  to  the  autopilot  as  commanded 
accelerations  proportional  to  the  LOS  rate;  hence,  the  term  proportional  guidance. 
The  commanded  accelerations  will  change  the  missile  velocity  relative  to  the 
target  velocity,  driving  the  LOS  rate  to  zero.  The  response  of  the  guidance  system 
is  determined  by  the  value  chosen  for  the  navigation  ratio  N.  Most  modern  missiles 
improve  upon  the  pure  proportional  guidance  law  by  using  the  target  related 
information  available  through  improved  sensors  and  increased  on  board  computing 
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power.  Target  related  parameters  used  in  addition  to  LOS  include  target  range, 
velocity,  acceleration  and  time  to  intercept.  Given  guidance  data,  the  guidance 
model  computes  the  commanded  accelerations  required  to  intercept  the  target. 

5.  The  Autopilot 

The  autopilot  functions  to  give  the  missile  stable  and  controlled  flight.  The 
autopilot  has  its  own  axes  reference  system  (Xa,  Ya,  Za).  The  airframe  motions 
about  the  autopilot  axes  are  controlled  by  the  autopilot.  Motions  about  the  Ya  and 
Xa  axes  determine  missile  direction.  The  autopilots  for  these  axes  are  termed  the 
pitch  and  yaw  autopilots,  respectively. 

The  autopilot  receives  commanded  accelerations  as  input  and  responds  with 
achieved  accelerations  as  output  (see  Figure  3.7).  The  achieved  accelerations  are 
based  on  the  characteristics  of  the  autopilot  and  other  missile  subsystems. 

6.  Target 

The  target  model  represents  a  simple  maneuvering  target.  Inputs  are 
positional,  heading,  velocity,  and  type  of  maneuver  initial  conditions.  Inertial  data 
are  derived  from  this  data  and  output  to  the  missile-target  geometry  model.  More 
sophisticated  target  models  might  include  multiple  targets  and  targets  capable  of 
complex  maneuvers. 
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7.  The  Atmosphere 

The  Earth's  atmosphere  is  a  dynamically  changing  system,  within  which  the 
missile  must  operate.  The  pressure,  density  and  temperature  of  the  atmosphere 
depend  on  altitude,  location  on  the  globe,  the  time  of  day  and  the  season.  In  order 
to  have  a  common  reference  atmosphere,  a  standard  atmosphere  has  been  defined 
by  the  U.S.  Air  Force  [Ref.  9].  The  standard  atmosphere  gives  mean  values  of 
pressure,  density,  and  temperature  as  a  function  of  altitude.  Most  missile  flight 
simulations  model  the  standard  atmosphere. 

C.   SUMMARY 

The  models  described  above  become  the  Ada  objects  in  the  object  oriented 
approach.  The  relations  between  the  models  are  represented  by  messages  between 
the  objects.    These  messages  can  request  actions  of  objects  or  be  in  response  to 
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message  requests  for  action.  Objects  may  be  constructed  from  other  objects.  A 
missile  composed  of  objects  that  represent  subsystems  for  example.  This  approach 
results  in  a  simulation  that  accurately  maps  the  problem  space  to  software,  as  the 
next  chapter  illustrates. 
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CHAPTER  IV.   THE  USERS  VIEW  OF  THE  SIMULATION 

A.   INTRODUCTION 

This  chapter  briefly  discusses  general  simulation  principles,  and  contains  a  basic 
user-level  overview  of  the  simulation.  The  brief  discussion  of  simulation  principles 
is  intended  to  provide  a  rudimentary  understanding  and  insight  into  some  aspects  of 
the  simulation's  implementation  and  operation.  The  user-level  overview  of  the 
missile  flight  simulation  operation  provides  basic  concepts  that  will  aid  in 
understanding  the  missile,  launcher,  and  targets  objects  presented  in  Chapter  VI. 

This  missile  flight  simulation  falls  under  the  category  of  nonlinear  continuous 
dynamic  systems  [Ref.  10].  Other  simulations  or  applications  in  this  category  include 
simulations  of  spring-damper  systems,  automotive  drive  trains,  power  plants,  and 
chemical  processing  plants.  In  keeping  with  the  principle  of  abstraction,  the  top-level 
of  the  simulation  is  generic  in  the  sense  that  it  is  not  designed  for  a  specific 
simulation,  it  is  application  independent.  The  application  could  be  any  of  the 
previously  mentioned  simulations.  The  principle  common  to  all  these  simulations  is 
that  the  application  specific  models  (e.g.,  a  power  plant  or  a  missile)  produce  a  set 
variables  that  represent  the  "state"  of  the  model.  Typically  the  state  variables  are 
time-dependent  variables  that  represent  rates,  such  as  flow  rates  in  a  power  plant  or 
accelerations  in  a  missile.  The  specific  application  models  the  system  of  interest  over 
a  period  of  time.    This  might  be  hours  or  days  for  a  power  plant,  or  seconds  or 


26 


minutes  for  a  missile.  The  time  periods  are  divided  into  discrete  units  of  time  called 
time  steps.  A  time  step  for  a  power  plant  might  be  an  hour,  while  a  missile's  time 
step  might  be  a  tenth  of  a  second.  The  state  variables  are  computed  once  each  time 
step  by  the  models.  These  state  variables  are  then  mathematically  integrated  each 
time  step  using  numerical  integration  methods  [Ref.  11].  The  integrated  variables 
are  then  fed-back  to  the  models  where  they  are  used,  along  with  other  equations 
representing  characteristics  of  the  model,  to  compute  the  state  variables  for  the  next 
time  step  [Ref.  12]. 

B.   SIMULATION  OPERATION 

The  simulation  is  a  3  Degree-of-Freedom  (3-DOF)  simulation  representing 
translational  motion  in  three  dimensional  space.  The  missile  is  a  dual  mode,  guided 
air-to-air  missile.  Dual  mode  indicates  that  the  missile  utilizes  both  radar  and 
infrared  sensors  (also  known  as  seekers)  to  guide  to  or  track  the  target.  The  missile 
is  carried  on  a  launch  aircraft  and  is  launched  at  the  target.  The  function  of  the 
missile  is  to  guide  to  and  intercept  one  of  the  two  targets.  The  targets  may  fly  a 
constant  nonmaneuvering  flight  path  or  the  user  may  enable  target  maneuvering. 
The  targets  are  capable  of  both  turn  and  weave  maneuvers.  In  addition  to  the  two 
targets,  it  is  possible  to  have  two  other  targets  active  which  act  as  stand  off  jammers 
(SOJs).  The  role  of  the  SOJs  is  to  use  electronic  counter  measures  (ECM)  to 
degrade  or  confuse  the  missile's  radar  to  prevent  the  missile  from  guiding  on  the 
target. 
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An  inertial  coordinate  system  is  used  to  describe  the  launch  aircraft,  missile, 
target  and  SOJ  positions  in  three  dimensional  space.  This  is  a  north,  east,  down 
coordinate  system  (north,  east,  down)  that  is  referenced  to  the  missile's  position  at 
launch  (i.e.,  (  0,  0,  -launch  aircraft  altitude)).  An  object's  position  and  velocity  in 
inertial  space  are  described  by  its  state  vector.  In  addition  to  the  inertial  coordinate 
system,  the  missile  uses  the  missile  body  coordinate  system  and  the  seeker  coordinate 
system.  The  missile  body  coordinate  system  is  referenced  to  the  airframe  or  body 
of  the  missile  and  is  used  to  compute  forces  acting  on  the  missile.  The  seeker 
coordinate  system  is  referenced  to  the  missile's  seeker  and  is  used  to  describe  where 
the  seeker  is  pointing  with  respect  to  the  missile  body  and  the  other  objects  in 
inertial  space. 

Sample  planar  views  of  a  typical  launch  profile  are  provided  in  Figure  4.1,  a  top 
view,  and  Figure  4.2,  a  side  view.  All  the  parameters  required  to  establish  a  default 
launch  profile  are  read  from  a  data  file  when  the  simulation  is  first  brought  up.  The 
user  enters  SIM  at  the  DOS  prompt  to  bring  up  the  simulation.  An  introduction 
screen  is  displayed,  and  any  key  stroke  will  then  display  the  Simulation  Main  Menu 
(see  Figure  4.3). 

This  menu's  choices  are:  File  Operations  Menu,  Launch  Aircraft  Parameter  Menu, 
Target  Parameter  Menu,  Start  Simulation  or  Quit  Program.  The  File  Operations 
Menu,  shown  in  Figure  4.4,  permits  the  loading  and  saving  of  data  files  that  establish 
the  simulation's  initial  conditions.  This  menu  also  has  a  selection  that  allows  the 
data  generated  by  the  simulation  to  be  logged  to  a  file  and  the  selection  of  the  log 
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interval.  The  user  may  then  modify  the  launch  profile  by  interactively  changing  the 
launch  aircraft,  missile,  target,  or  SOJ  parameters.  The  user  does  this  from  their 
individual  menus. 

1.  Launch  Aircraft  and  Missile  Parameters 

Launch  aircraft  parameters  that  may  be  modified  interactively  from  the  Launch 
Aircraft  Parameter  Menu  (Figure  4.5)  are  aircraft  type,  launcher  type,  altitude, 
velocity,  heading  angle  and  guidance  mode.  The  launch  aircraft's  altitude,  velocity 
and  heading  angle  become  initial  conditions  for  the  missile.  The  aircraft  type,  which 
can  be  F-14,  F-15,  or  F-18,  establishes  radar  characteristics  that  will  determine  when 
the  missile's  radar  acquires  the  target.  Launcher  type  specifies  whether  the  missile 
is  launched  off  a  rail  station  of  the  launch  aircraft  or  whether  the  missile  is  ejected 
off  an  ordnance  station  of  the  launch  aircraft.  The  guidance  modes  available  to  the 
launch  aircraft  are  the  pursuit  mode,  in  which  case  the  launch  aircraft  maneuvers 
towards  the  target  after  launch  or  the  nonmaneuvering  mode,  in  which  case  the 
launch  aircraft  continues  on  its  original  flight  path  after  missile  launch. 

2.  Target  Parameters 

It  is  assumed  that  there  is  always  at  least  one  target.  The  user  must  enable  the 
second  target  to  simulate  a  two  target  formation.  The  target  parameters  that  may 
be  modified  from  the  Target  Parameter  Menu  (Figure  4.6)  can  be  divided  into  three 
categories:  general,  maneuver,  and  ECM.  The  general  parameters  are  altitude, 
velocity,  aspect  angle,  slant  range,  radar  cross  section  (RCS),  and  infrared  (IR) 
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radiance.  Aspect  angle  is  the  angle  defined  counter-clockwise  from  the  target's  tail 
to  the  missile's  line-of-sight  (LOS).  Hence,  an  aspect  angle  of  zero  degrees  is  a  tail 
shot  (i.e.,  the  target  and  launch  aircraft  have  the  same  heading,  with  the  launch 
aircraft  following  the  target),  and  an  aspect  angle  of  180  degrees  is  a  head  shot  (i.e., 
the  target  and  missile  flying  directly  at  one  another).  The  LOS  vector  is  the  vector 
from  the  missile's  seeker  to  the  target.  The  slant  range  is  the  three  dimensional 
range  from  the  target  to  the  missile.  The  missile  may  use  its  own  radar  or  infrared 
sensors  to  provide  target  information.  RCS  is  a  parameter  that  indicates  the  targets 
size  in  terms  of  how  much  radar  energy  is  reflected  off  the  target.  A  target  with  a 
large  RCS  will  be  acquired  by  the  missile's  radar  in  a  shorter  period  of  time  (or 
similarly  acquired  at  a  longer  range)  than  a  target  with  a  small  RCS.  IR  radiance 
is  the  infrared  spectrum's  counterpart  to  RCS,  except  the  IR  energy  is  emitted  from 
the  target's  engine  exhaust  (and  other  IR  "hot"  spots),  rather  than  being  energy 
reflected  off  it.   The  target  maneuver  parameters  control  the  target's  flight  path. 

The  target  can  be  either  a  nonmaneuvering  target,  a  turning  target,  or  a  weaving 
target  depending  on  the  parameter  maneuver  type.  Parameters  associated  with  both 
the  turning  target  and  weaving  target  are  maneuver  g's,  buildup  time,  and  the 
maneuver  start  parameter.  Target  g's  are  the  number  of  g's  the  target  is  going  to 
achieve  executing  the  maneuver,  and  build  up  time  is  the  time  it  takes  to  achieve  the 
commanded  g's.  The  maneuver  start  parameter  selects  what  condition  initiates  the 
maneuver.  The  user  can  select  whether  the  maneuver  starts  on  flight  time  (time 
since  the  start  of  the  simulation),  time  remaining  (estimated  time  to  intercept),  or 
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range-to-go  (missile-to-target  range).  Specific  to  turn  maneuver  is  the  parameter 
angle  to  turn  through,  which  is  simply  how  many  degrees  the  target  is  to  turn  through 
before  the  turn  is  terminated  and  the  target  resumes  straight  and  level  flight.  A 
weaving  targets  flight  path  resembles  a  sinusoidal  wave  form  in  the  north-east  plane. 
That  is,  looking  down  on  the  target,  its  flight  path  would  resemble  a  sine  wave.  The 
weave  specific  parameter  weave  period  determines  the  time  (in  seconds)  it  takes  the 
target  to  complete  one  cycle  or  period  of  the  weave.  If  target  two  is  enabled,  the 
user  may  define  the  second  targets  altitude,  the  second  target's  range  to  target  one 
and  the  second  target's  echelon  angle  (see  Figure  4.7). 
3.   SOJ  and  Target  ECM  Parameters 

The  user  also  has  the  option  to  enable  the  SOJs  and  set  their  range  from  the 
launch  aircraft,  look  angle  to  the  target  (the  angle  between  the  launch  aircraft's  LOS 
to  the  target  and  the  LOS  to  the  SOJ,  see  Figure  4.8),  and  modify  their  ECM 
parameters  (see  Figure  4.9).  The  ECM  parameter  associated  with  both  targets  is 
ECM  technique.  The  ECM  techniques  available  are  none,  repeater,  and  barrage 
noise.  Associated  with  the  repeater  ECM  technique  is  the  parameter  loop  gain  and 
associated  with  the  barrage  noise  ECM  technique  is  the  parameter  effective  radiated 
power  density  (ERPD).  The  repeater  technique  is  intended  to  deceive  the  missile 
by  receiving  the  missile's  radar  signal,  altering  it,  and  retransmitting  it  back  to  the 
missile.  The  intent  is  to  make  the  missile  "see"  the  target  at  a  different  range  or 
velocity  than  the  target's  actual  range  or  velocity.  The  user  may  modify  the  loop 
gain,  effectively  controlling  the  power  of  the  repeater.  The  barrage  noise  technique 


36 


Target 
One^ 

-                                                                                                           ^      NORTH 

Echelon    J 

v     Angle      J 

TOP  VIEW 

\ 

' 

Target 
Two 

EAST 

Figure  4.7  Multiple  Targets 


Launch 
Aircraft 


LOS  Vector 


Stand  Off 
Jammer  (SO J) 


Figure  4.8  SOJ  Look  Angle 


37 


CO 

o 


ZJ 

cz 

CD 

TL 

l_ 
CD 

A— > 

CD 

£ 
TO 

i_ 
TO 

Q_ 


o 

CO 


o 

o 

O 

LU 

CD 

0 
q 

o 

o 

O 

< 

o 

o 

O 

CC 

0 

ro 

IT) 

z 

2: 

CD 

CC 

< 

CO 

ro 

"» 

■O 

Z5 

0 

CZ 

< 

u 
< 

M 

CD 
E 

.cz 

_l 

CD 

£Z 

cn 

t"  > 

u 

0 

ZJ 

H 

ZJ 

<*— 

cz 

-!-> 

O" 

O 

^ 

ZJ 

TO 

, ; 

cz 

^ 

> 

■» 

CD 

.CZ 

CD 

CD 

CD 

(_ 

0 

735 

C_ 

"O 

ZJ 
-t-> 

E 
0 

CD 

CD 

O 

CL 
O 

-i-> 

CD 

cz 

TO 

u 

Q_ 

DC 

-1— > 

CZ 

TO 

CD 

LU 

LU 

C_ 

CJ> 

JZ 

ZJ 

> 

cz 

0 

~) 

~5 

4-> 

o 

TO 

0 

0 

O 

CD 

CO 

CC 

_l 

CO 

CO 

CC 

3 
C 


u 
<U 

£ 

CO 

u 

O 

<S\ 
TT 

<U 

t- 
3 
0£ 


38 


is  a  cruder  technique  in  which  the  target  transmits  broad  band  noise  in  an  attempt 
to  over-power  the  missile's  radar  receiver  and  deny  it  any  target  information.  The 
user  may  modify  the  ERPD  of  the  barrage  noise.  Similar  ECM  options  are  available 
for  the  SOJs  if  they  are  enabled.  Basically  the  ECM  is  a  function  of  the  technique 
used  and  the  geometry  in  which  the  ECM  platform  (i.e.,  either  target  or  SOJ) 
encounters  the  missile.  In  all  cases  just  minimal  or  skeleton  code  is  implemented  for 
ECM  due  to  security  classification  issues  and  developmental  time  constraints.  The 
ECM  area  falls  under  the  future  work  category  discussed  in  the  last  chapter. 

To  start  the  simulation,  the  user  selects  Start  Simulation  Run  from  the  main 
menu.  The  run-time  display  is  then  shown  indicating  key  geometric  and  kinematic 
parameters  (see  Figure  4.10).  The  user  may  halt  or  abort  the  simulation  while  it  is 
running.  Halting  the  simulation  permits  careful  examination  of  parameters  during 
a  run,  while  terminating  the  simulation  allows  a  quick  turn  around  if  the  user  is  not 
satisfied  with  the  run  (e.g.,  initial  conditions  set  incorrectly).  At  the  end  of  a 
simulation  run  the  terminal  condition  display  is  shown,  which  is  the  runtime  display 
with  the  final  parameter  values  and  the  reason  for  termination  (see  Figure  4.11). 
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V.   THE  CONTROL  AND  SUPPORT  OBJECTS 

A.  INTRODUCTION 

This  chapter  presents  three  of  the  top-level  objects  that  control  the  simulation  and 
their  support  objects  (see  Figure  A.1  of  Appendix  A).  The  discussion  of  the  top-level 
objects  will  follow  the  basic  development  methodology  presented  earlier  and 
illustrates  how  the  objects  demonstrate  important  features  of  object  oriented 
principles  and  software  engineering  principles.  This  discussion  is  not  intended  to  be 
a  line  by  line  detailed  functional  description  of  the  code,  but  is  intended  to  provide 
a  basic  understanding  of  how  the  simulation  works  (the  reader  is  referred  to 
Appendix  C  and  Appendix  D  for  a  complete  listing  of  the  simulation). 

B.  BASIC  METHODOLOGY 

Objects  and  their  messages  will  appear  in  capitol  letters  by  convention  through 
the  remainder  of  this  document.  The  methodology  presented  in  Chapter  II  will  be 
used  to  develop  the  three  top-level  objects  presented  in  this  chapter.  These  top-level 
objects,  and  their  support  objects,  will  be  discussed  here  to  provide  a  framework  for 
presenting  the  MISSILE  and  TARGET  objects  in  the  next  chapter. 

At  this  the  highest  level  of  abstraction,  we  wish  to  keep  the  simulation  application 
independent.  We  might  wish  to  simulate  a  power  plant  or  missile  -  our  upper  most 
level  should  not  reflect  what  particular  application  we  are  using.     Objects  are 
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necessary  to  control  or  manage  the  simulation.  By  controlling  or  managing  the 
simulation  we  mean  things  like  getting  user  input,  initialization,  starting  and  stopping 
the  simulation,  and  presenting  data.  The  objects  necessary  for  these  operations  are 
identified  as  the  EXECUTIVE,  APPLICATION,  and  USERINTERFACE.  The 
EXECUTIVE  has  no  knowledge  of  what  type  of  simulation  is  running,  it  just  sees 
the  APPLICATION  and  USERINTERFACE  objects  and  stimulates  them  with  the 
appropriate  messages.  The  APPLICATION  object  has  the  knowledge  of  the  specific 
details  of  the  application  in  terms  of  what  objects  exist  and  their  interfaces.  The 
USER_INTERFACE  object  is  required  for  user  input  and  output.  The 
APPLICATION  will  have  to  be  visible  to  the  USERINTERFACE  and  the 
USERINTERFACE  must  be  visible  to  the  APPLICATION.  The  reasons  for  this 
will  become  clear  when  we  examine  each  object's  interface  or  messages.  So  far  we 
have  identified  the  objects,  formed  a  general  characterization  of  their  behavior  and 
established  their  visibility.  The  next  steps  of  the  development  methodology,  defining 
the  interfaces  and  implementing  the  objects,  will  be  discussed  in  more  detail  in  the 
following  sections. 

C.   OBJECT  MESSAGES  AND  IMPLEMENTATION 

Each  object's  messages  are  presented  in  more  detail  because  they  are  key  to 
understanding  an  object's  capabilities.  The  Ada  with  clause  allows  a  package  (or 
object)  to  access  or  view  another  package's  specification.  Package  specifications 
define  the  interface  to  the  package  in  terms  of  data  structures,  function  calls  and 
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procedure  calls  available  to  the  users  of  the  package.  In  our  object  oriented  view, 
package  specifications  define  the  external  messages  that  an  object  can  respond  to  by 
eliciting  some  type  of  action  or  providing  the  sender  with  information.  Internal 
messages  are  the  functions  and  procedures  that  are  in  the  body  and  not  in  the 
package  specification,  and  therefor  are  for  the  exclusive  use  of  that  object.  Appendix 
A  provides  figures  that  illustrate  the  objects  indicating  which  objects  they  "with"  and 
their  messages. 

D.   THE  CONTROL  OBJECTS 

1.  The  EXECUTIVE 

The  simulation  EXECUTIVE  is  a  procedure  that  forms  the  upper  or  outer- 
most layer  of  the  simulation  (Figure  A.2).  This  is  highest  level  of  abstraction  for  the 
simulation.  The  simulation  EXECUTIVE  contains  a  context  clause  that  "withes"  the 
APPLICATION  object  and  the  USERINTERFACE  object.  The  EXECUTIVE 
sends  a  message  to  APPLICATION  to  initialize  the  system  and  a  message  to  the 
USER_INTERFACE  to  turn  over  control  of  the  simulation  to  the  user. 

2.  The  APPLICATION 

The  APPLICATION  also  resides  at  the  simulation's  highest  level  of 
abstraction.  The  APPLICATION  object  contains  or  defines  the  application  specific 
messages  or  actions  for  a  specific  simulation.  The  APPLICATION  might  represent 
one  of  any  number  of  simulations.  The  APPLICATION  object  has  the  following 
messages      as     shown      in     Figure      A. 3:      INITIALIZESYSTEM, 
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INITIALIZESIMULATION,  NUMBER  OF  STATEVARIABLES, 
GETSTATES,  PUTSTATES,  COMPUTEDERIVATIVES,  LOGDATA, 
ENDCONDITIONMET,  ENDOFRUN,  CHECKPAUSE,  and 
SIMULATIONMAIN.  The  internal  INITIALIZESYSTEM  message  sends  a 
message  to  the  SYSTEM_SPECIFIC  object  to  initialize  the  video  display  and  sends 
a  message  to  the  USER_INTERFACE  to  display  the  initial  title  screen  to  the  user. 
INITIALIZE_SIMULATION  ,an  internal  message,  signals  the  objects  that  make  up 
the  specific  application  to  initialize  themselves.  This  message  also  frees  memory  by 
instantiating  Ada's  UNCHECKED_DEALLOCATION  to  create  a  procedure  called 
FREE.  FREE  deallocates  memory  that  was  used  for  storing  the  previous  runs  data. 
INITIALIZESIMULATION  will  also  create  an  output  data  file  if  the  simulation  is 
logging  data  to  disk.  The  external  COMPUTE_DERIVATIVES  message  is  invoked 
which  in  turn  sends  COMPUTE  messages  to  the  MISSILE  and  TARGET  objects 
telling  them  to  compute  the  mathematical  derivatives  that  characterize  them.  These 
are  used  as  initial  values  for  computing  the  state  variables  in  the  first  time  step.  An 
example  of  sending  or  invoking  the  INITIALIZE_SYSTEM  from  another  object  (e.g., 
as  is  done  in  the  body  of  EXECUTIVE  for  this  particular  message)  is  as  follows: 

APPLICATION.INITIALIZE  SYSTEM 
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When  this  statement  is  encountered  in  the  body  of  EXECUTIVE  the 
INITIALIZESYSTEM  message  or  procedure  defined  in  APPLICATION  will  be 
executed.   The  messages  are  intended  to  be  self-descriptive. 

GETDERIVATIVES  is  an  external  message  that  provides  the  values  of  the 
MISSILE  and  TARGET  derivatives  by  sending  a  GETDERIVATIVES  messages 
to  these  objects.  The  external  NUMBEROFSTATEVARIABLES  message 
returns  the  number  of  state  variables  possessed  by  a  specific  application.  This 
message  is  used  to  correctly  size  the  data  structures  in  the  INTEGRATION  object. 
The  external  message  GETSTATES  solicits  the  appropriate  objects  for  their  state 
variables  while  PUT_STATES  provides  those  objects  with  updated  state  variables. 

The  internal  LOG_DATA  message  tells  the  simulation  to  output  data  to  the 
screen  and,  if  desired,  save  data  to  a  disk  file.  The  internal  CHECK_PAUSE 
message  checks  to  see  if  the  user  has  paused  the  simulation  run  or  has  decided  to 
terminate  the  run.  The  internal  END_CONDITION_MET  message  signals  that  the 
appropriate  conditions  have  been  satisfied  and  the  simulation  can  be  terminated. 

The  external  message  SIMULATION_MAIN  is  the  heart  of  the 
APPLICATION  object.  The  first  action  SIMULATIONMAIN  takes  is  to  set  the 
Boolean  variable  LOGGINGTODISK  according  to  the  value  found  in 
SETUPVALUES.  If  LOGGINGTODISK  is  true,  data  generated  by  the 
simulation  will  be  written  to  a  file  on  disk.  SIMULATION_MAIN  then  tells  the 
objects  to  set  themselves  up  by  sending  a  SETUP  message  to  the  missile  and  aircraft 
objects.  There  is  a  distinction  in  the  simulation  between  setup  and  initialize.  Setup 
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refers  to  collecting  data,  either  interactively  from  the  user  or  from  default  values, 
while  initialize  refers  to  using  these  values  to  compute  initial  conditions  or  initialize 
data  structures.  After  the  MISSILE  and  TARGET  have  been  setup,  a  message  is 
passed  to  the  ENVIRONMENT  object  to  set  the  time  to  zero.  This  is  the  reference 
time  at  which  the  simulation  starts.  Following  this  a  message  is  sent  to  the 
INTEGRATION  object  establishing  the  TIMESTEPSIZE  to  be  used  for  the 
numeric  integration.  The  NEXTLOGGINGFRAME  and  FRAMENUMBER  are 
then  set  to  initial  values.  Then  the  simulation  is  initialized  followed  by  the 
INTEGRATION  object.  At  this  point  the  main  loop  is  entered.  This  body  of  code 
will  be  repeatedly  executed  until  the  simulation  stops,  either  by  reaching  normal  end 
conditions  or  through  user  intervention.  Within  the  loop  the  INTEGRATION  object 
is  told  to  ADVANCE_TIME.  This  is  the  message  that  drives  the  computation  of 
state  variables  and  hence  most  of  the  computations  or  activity  taking  place  in  the 
simulation.  Also  within  the  loop,  the  screen  is  updated  and  data  logged  to  disk  if 
required.  The  loop  is  repeatedly  executed  until  END_CONDITION_MET  is  true. 
ENDCONDITIONMET  sends  a  message  to  the  MISSILE  to  see  if  the  MISSILE 
specific  END_CONDITION_MET  is  true  (e.g.,  TARGET  intercept  has  occurred,  the 
MISSILE  has  flown  into  the  ground,  etc.)  or  checks  to  see  if  the  user  has  terminated 
the  run.  Once  END_CONDITION_MET  is  true,  the  run-time  screen  is  updated  for 
the  last  time  and  the  internal  SHOWTERMINALCONDITIONS  message  displays 
the  terminal  conditions  of  the  flight  to  the  user.  Finally,  the  internal  END_OF_RUN 
message  is  invoked  to  close  the  output  data  file  if  the  simulation  was  logging  data  to 
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disk.  The  user  then  can  return  to  the  main  menu.  At  this  point  the  simulation  may 
be  run  again  or  parameters  may  be  modified. 

3.   The  USERINTERFACE 

The  USERINTERFACE  object,  shown  in  Figure  A.4,  allows  the  user  to  the 
user  to  control  the  simulation  through  keyboard  input,  along  with  presenting  run-time 
displays  and  simulation  status  information  to  the  user.  The  USER_INTERFACE  is 
designed  as  a  standard  interface  regardless  of  what  model  computer  hosts  the 
simulation.  USERINTERFACE  is  menu  driven  to  provide  a  more 
"user/programmer  friendly"  interface  than  previous  FORTRAN  simulations. 
USER_INTERFACE  uses  some  of  Ada's  modern  language  features  that  are  not 
found  in  FORTRAN.  For  example,  access  types  (pointers)  and  records  are  used  to 
form  linked  lists.  The  linked  lists  that  form  the  menus,  submenus,  and  individual 
items  are  quite  easily  modified  to  accommodate  growth  (i.e.,  more  menus  ,submenus, 
or  items).  Recursion  is  used  to  traverse  the  lists.  Recursion  makes  the  code  easier 
to  read  and  understand.  Ada's  variant  records  simplified  the  design  and  building  of 
the  linked  lists. 

The  MATH,  APPLICATION  and  SYSTEMSPECIFIC  objects  are  made 
visible  to  USERINTERFACE  by  with  clauses.  USERINTERFACE  also  "withes" 
the  Ada  predefined  packages  TEXTIO  and  REALIO.  USERINTERFACE 
provides      the      following      external      messages      to      its      users:  MAIN, 

SHOW    TITLE    SCREEN,      DRAW    RUNTIME    BORDER,      and 
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SETUPRUNTIMESCREEN.  The  MAIN  message  passes  an  access  type  to  the 
MAIN_MENU  as  a  parameter  to  the  internal  MANAGE_MENU  object,  the  heart 
of  USERINTERFACE.  MANAGE_MENU  navigates  through  the  various  menus, 
submenus,  and  individual  items.  MANAGEMENU  allows  the  user  to  interactively 
enter  or  modify  data.  The  menus  allow  the  user  to  build  a  "missile  launch  scenario" 
by  entering  or  selecting  missile  and  target  parameters.  The  user  may  enter  a  value 
for  the  missile's  launch  altitude  by  typing  it  at  the  keyboard,  for  example.  Where 
data  takes  the  form  of  an  enumerated  type,  for  example  the  launcher  type  is  either 
F-14,  F-15,  or  F-18,  the  user  can  cycle  through  the  choices  by  striking  the  enter  key. 
This  is  implemented  by  using  the  PRED  (for  predecessor)  or  SUCC  (for  successor) 
attributes  of  enumerated  types. 

The  user  can  initiate  three  actions  from  USER_INTERFACE: 
LOADDATAFILE,  SAVEDATAFILE,  or  STARTRUN.  LOADDATAFILE 
provides  the  missile  launch  scenario  parameters  from  a  disk  file. 
SAVE_DATA_FILE  will  save  the  current  missile  launch  scenario,  possibly 
customized  by  the  user,  to  a  disk  file  for  later  use.  The  intent  here  is  to  enable  the 
quick  setup  of  missile  launch  scenarios  that  vary  from  the  default  scenario. 
START_RUN  will  gather  all  the  missile/target  parameters  from  the  various  menus. 
These  values  become  the  appropriate  object's  setup  values.  At  this  point 
STARTRUN  sends  a  message  to  APPLICATION  (i.e., 
APPLICATION.MAIN(SETUPVALUES))  that  starts  the  simulation. 
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The  SHO  W_  1 T 1 LESCREEN  external  message  clears  the  user's  screen,  turns 
off  the  cursor  and  displays  the  initial  welcome  text.  DRAWRUNTIMEBORDER 
draws  the  screen  border  for  the  runtime  screen  and  displays  a  text  instruction.  The 
message  SETUP_RUNTIME_SCREEN  clears  the  screen  and  signals 
DRAW_RUNTIME_BORDER.  Then  DRAW_RUNTIME_SCREEN  displays  a 
template  of  the  text  portion  of  the  simulation  data,  with  the  appropriate  units,  that 
is  presented  during  runtime.  For  example,  "Elapsed  time,  sec:"  is  displayed.  The 
actual  run-time  data  values  are  displayed  from  the  APPLICATION  object. 

Other     important     internal     messages     are:  DISPLAY_MENU, 

SETUPMENUDATA,  GETTEXT,  and  GETREAL.  DISPLAYMENU  is  a 
message  that  displays  the  individual  items  in  a  menu  or  submenu.  This  message  uses 
the  SYSTEM_SPECIFIC  object,  which  will  be  discussed  shortly,  for  low-level  IO. 
SETUPMENUDATA  establishes  all  the  default  values  for  the  MISSILE  and 
TARGET  parameters  found  in  the  menus.  GET_TEXT  is  used  to  display  a  prompt 
for  text  input  and  then  input  and  validate  the  user's  response.  GET_TEXT  also  uses 
the  SYSTEMSPECIFIC  object  for  much  of  its  low-level  IO.  GETREAL  is  used 
to  read  real  values  input  by  the  user.  This  message  provides  a  more  flexible  and 
user-friendly  method  for  inputting  real  numbers  than  Ada's  predefined  REAL_IO 
package.  SETUPMENUDATA,     SHOWTITLESCREEN,     and 

SETUP_RUNTIME_SCREEN  are  implemented  as  separate  compilation  subunits  of 
the  main  USER_INTERFACE  package.  This  division  was  made  because  these  units 
contain  mostly  textual  information  that  tended  to  clutter  and  obscure  the  main 
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USER_INTERFACE  package.  Also,  modifications  are  easier  and  compilations  are 
faster  when  these  messages  are  implemented  as  subunits  of  the  USER_INTERFACE 
package.  Editing  is  easier  with  smaller  modules  and  the  corresponding  compilation 
faster. 

E.   THE  SUPPORT  OBJECTS 
1.   SYSTEMSPECIFIC 

Modular  design  and  information  hiding  allow  the  simulation  to  be  machine 
independent.  The  simulation  was  developed  and  implemented  on  an  IBM  AT 
compatible  machine.  In  the  future  the  simulation  will  be  modified  to  run  on  an 
Apple  Macintosh  computer  and  possibly  other  systems.  To  aid  this  process,  all  the 
machine  dependent  code  is  implemented  (hidden)  in  the  SYSTEM_SPECIFIC  object 
(see  Figure  A.5).  Most  of  this  code  is  associated  with  the  IBM  video  display.  By 
rewriting  SYSTEM_SPECIFIC  for  the  Apple  Macintosh,  and  keeping  the  original 
message  names,  the  porting  process  should  consist  simply  of  a  recompile  of 
SYSTEM_SPECIFIC  and  a  link  of  the  simulation.  Also  by  working  at  a  lower 
system-specific  level  all  screen  displays  are  output  in  the  most  efficient  manner 
providing  very  fast  screen  updates.  This  prevents  the  user  from  perceiving  a  delay 
as  the  screen  is  updated  or  the  next  menu  is  displayed  (problems  experienced  in 
earlier  FORTRAN  simulations). 
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SYSTEMSPECEFIC  is  visible  to  APPLICATION  and  USERINTERFACE.    A 

number  of  packages  providing  DOS  environmental  support  are  included  with 
Meridian's     Ada     compiler     [Ref.      13].  These     include:  SYSTEM, 

PROGRAMCONTROL,  INTERRUPT,  COMMONDISPLAYTYPES,  TTY  and 
BOX.  The  SYSTEM  package  is  used  to  provide  an  address  expression  which  is  a  32 
bit  segmented  memory  address.  The  address  expressions  are  used  for  monochrome 
and  color  video  addresses.  The  PROGRAMCONTROL  package  is  used  to 
terminate  the  simulation.  PROGRAM_CONTROL's  QUIT  procedure  terminates 
the  calling  program  and  returns  control  to  DOS.  The  package  INTERRUPT  allows 
calls  to  DOS  interrupt  vectors.  COMMONDISPLAYTYPES  contains  declarations 
for  the  various  packages  that  handle  display  operations,  such  as  TTY  and  BOX.  The 
package  TTY  provides  operations  on  the  terminal  display  and  keyboard.  TTY  links 
in  faster  than  TEXT_IO  and  calls  to  the  TTY  subprograms  run  faster.  The  TTY 
subprograms  used  are  GET,  PUT,  and  CHARREADY.  CHARREADY 
determines  if  a  character  is  ready  to  be  read  from  the  keyboard.  Package  BOX 
provides  procedures  for  drawing  boxes  on  the  text  screen.  Also,  a  Meridian  supplied 
package,  BIT_OPS,  is  used  for  bit-level  logical  operations  [Ref.  14]. 

All  of  these  vendor  supplied  packages  are  used  in  the  SYSTEMSPECIFIC 
to  provide  the  following  external  messages:  INITVIDEO,  DRAWBOX, 
CLEARSCREEN,  REVERSEVIDEOON,  REVERSEVIDEOOFF, 
MOVE_CURSOR,TURN_CURSOR_ON,TURN_CURSOR_OFF,PUT_STRING, 
PUT  REAL,      INPUT  STRING,      KEY   AVAILABLE,      GET  KEY, 
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GET_MENU_COMMAND.  INITVIDEO  determines  whether  the  host  system  has 
a  monochrome  or  EGA  display  and  sets  variables  accordingly.  DRAW_BOX  is  used 
to  draw  the  screen  border.  CLEARSCREEN  clears  the  video  display. 
REVERSEVTDEOON  and  REVERSEVIDEOOFF  control  whether  text  is 
output  in  reverse  video.  MOVECURSOR  moves  the  cursor  to  the  desired  row  and 
column  of  the  video  display.  TURNCURSORON  and  TURNCURSOROFF 
control  whether  the  cursor  is  displayed.  PUT_STRING  outputs  a  character  string  to 
the  video  display  in  normal  or  reverse  video.  PUT_REAL  outputs  a  real  number  to 
the  screen.  INPUT_STRING  inputs  text  strings  from  the  user.  KEY_AVAILABLE 
indicates  if  a  keyboard  key  has  been  pressed  and  GET_KEY  returns  the  scan  code 
of  the  key  pressed.  GETMENUCOMMAND  uses  KEYAVAILABLE  and 
GETKEY  to  decode  the  keyboard  input  into  UPARROW,  DOWNARROW  and 
ENTER  commands.  The  implementation  details  involve  advanced  DOS 
programming  and  the  reader  is  referred  to  Young  [Ref.  15]  for  further  information. 
2.   INTEGRATION 

The  INTEGRATION  (see  Figure  A.6)  object  performs  the  numerical 
integration  of  the  MISSILE  and  TARGET  state  variables.  INTEGRATION  is  visible 
to  the  APPLICATION  object.  Objects  visible  to  INTEGRATION  are  MATH, 
ENVIRONMENT,  and  APPLICATION.  The  integration  of  the  state  variables  each 
time  step  drives  the  MISSILE  and  TARGET  in  the  simulation.  Each  TIME_STEP 
time  units,  the  state  variables  are  integrated  and  fed  back  to  the  appropriate  objects 
and,  along  with  other  computations,  are  used  to  form  the  subsequent  TIME_STEP's 
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state  variables.  For  example,  INTEGRATE  requests  the  MISSILE'S  derivatives, 
which  are  the  MISSILE'S  accelerations  and  velocities.  These  accelerations  and 
velocities  are  computed  by  the  MISSILE  using  the  previous  TIME_STEFs  state 
variables  (along  with  other  computations).  INTEGRATION  then  integrates  the 
MISSILE'S  accelerations  and  velocities  to  obtain  the  MISSILE'S  velocities  and 
position,  which  form  the  MISSILE'S  current  state  variables.  These  state  variables  are 
then  provided  to  the  MISSILE  for  use  during  the  next  TIMESTEP,  time  is 
advanced  TIME_STEP  units,  and  the  whole  process  is  repeated. 

The  external  messages  that  make  all  this  possible  are  TIME_STEP_SIZE, 
SETTIMESTEPSIZE,  INITIALIZE,  and  ADVANCETIME.  These  messages 
form  a  standard  interface  regardless  of  the  specific  application.  TIME_STEP_SIZE 
provides  the  sender  with  the  current  value  INTEGRATION  is  using  for 
TIMESTEP.  SETTIMESTEPSIZE  permits  INTEGRATION'S  TIMESTEP 
value  to  be  changed.  INITIALIZE  requests  that  APPLICATION  return  the 
application  specific  object's  derivatives  and  state  variables.  These  values  are  used 
as  initial  conditions  by  INTEGRATION.  ADVANCETIME  is  the  heart  of 
INTEGRATION,  as  it  signals  the  correct  integration  method  to  execute.  There  are 
numerous  methods  to  perform  numeric  integration,  for  example,  Hanna,  Euler, 
Adams-Bashforth,  to  name  just  a  few.  These  methods  offer  trade  offs  in  terms  of 
accuracy  and  execution  speed.  By  having  the  method  visible  only  to 
ADVANCE_TIME,  changing  the  particular  method  used  is  relatively  easy.  At  this 
time  only  the  Hanna  method  is  implemented  [Ref.  16].    The  Hanna  method  is  a 
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predictor/corrector  numeric  integration  technique.  A  temporary  state  or  predictor, 
which  is  the  previous  TIME_STEP's  state  variables,  multiplied  by  its  derivatives  and 
TIME_STEP,  is  computed.  Next  the  ENVIRONMENT  object,  which  keeps  track  of 
time,  is  signalled  to  increment  the  current  time  by  TIME_STEP  units  by  the 
SETTIME  message.  Then  INTEGRATION  sends  MISSILE  and  TARGET  their 
temporary  state  variables  via  a  message  to  APPLICATION.  INTEGRATION  then 
signals  MISSILE  and  TARGET  to  compute  their  derivatives  via  another  message  to 
APPLICATION.  MISSILE  and  TARGET  use  their  temporary  state  variables  to 
compute  their  current  derivatives.  INTEGRATION  then  requests  these  derivatives 
to  correct  the  state  variables.  Finally  the  current  set  of  derivatives  is  saved  for  the 
next  TIME_STEP.  This  process  is  repeated  each  time  INTEGRATION  is  sent  the 
ADVANCETIME  message  by  APPLICATION  until  APPLICATION  stops  the 
simulation. 
3.   MATH 

The  MATH  object,  shown  in  Figure  A.7,  provides  external  messages  that 
perform  all  the  basic  mathematical  operations  required  by  the  simulation.  MATH 
also  defines  all  the  physical  constants  used  in  the  simulation,  such  as  PI,  E,  and  the 
gravitational  constant  G.  MATH  is  visible  to  most  of  the  upper-level  objects. 
MATH  withes  Meridian's  MATH_LIB  to  provide  trigonometric  functions  such  as 
SIN,  COS,  TAN  and  their  inverses.  All  these  functions  have  been  embedded  in 
functions  that  perform  a  type  conversion  of  the  operands  to  the  real  type,  as  the 
Meridian  MATH_LIB  is  instantiated  for  the  float  type.  MATH  instantiates  the  real 
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types.  Operations,  in  addition  to  those  provided  by  MATH_LIB,  include  LOG, 
LIMIT,  *  *,  MIN,  MAX  and  a  variety  of  matrix  and  vector  operations.  LOG  provides 
the  base  10  logarithm  of  a  number.  The  overloaded  LIMIT  compares  a  real  variable 
against  a  lower  and  upper  limit,  and  returns  either  the  upper  limit  if  the  variable  is 
greater  than  it,  the  lower  limit  if  the  variable  is  less  than  it,  or  the  variable,  if  it  falls 
between  the  two  limits.  The  other  LIMIT  compares  a  real  variable  with  the  positive 
and  negative  values  of  a  single  limit  and  returns  the  appropriate  value.  The  ** 
message  provides  exponentiation.  MIN  returns  the  minimum  of  two  variables  while 
MAX  returns  the  maximum  of  two  variables.  MATH  also  instantiates 
REALMATRIX  from  the  generic  unit  MATRIXANDVECTOR  to  provide 
mathematical  operations  on  matrices  and  vectors. 
4.   REALMATRIX 

REAL_MATRIX  (see  Figure  A.7)  is  an  instantiation  of  the  generic  unit 
MATRIX_AND_VECTOR  and  illustrates  Ada's  limited  implementation  of  the  object 
oriented  inheritance  concept.  MATRIX_AND_VECTOR  is  a  generic  unit  that  acts 
as  a  template  for  packages  and  provides  the  means  to  build  reusable  software 
components.  MATRIX_AND_VECTOR  provides  all  the  basic  mathematical 
operations  for  matrices  and  vectors  without  specifying  what  data  type  make  up  these 
structures.  REALMATRIX  is  the  MATRIXANDVECTOR  object  instantiated 
for  the  real  data  type.  Future  requirements  may  call  for  the  instantiation  of 
MATRIXANDVECTOR  for  complex  numbers. 
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REAL_MATRIX  provides  a  number  of  messages  for  operations  on  matrices 
and  vectors  because  many  of  the  quantities  encountered  in  the  simulation,  such  as 
forces,  are  best  expressed  in  terms  of  vectors  or  arrays.  REAL_MATRIX  defines  the 
vector  type  as  a  one  dimensional  array  of  real  numbers  and  the  matrix  type  as  a  two 
dimensional  array  of  real  numbers.  The  basic  operations  on  matrices  are  overloaded 
to  deal  with  both  single  and  two  dimensional  matrices.  Ada's  attributes  for  array 
types  were  very  useful  in  coding  these  operations.  The  RANGE  attribute  provided 
an  easy  and  flexible  method  for  specifying  array  index  constraints.  The  LAST 
attribute  proved  valuable  for  specifying  the  upper  bound  on  the  control  variable  of 
for  loops.  The  overloaded  +,  -,  *  and  /,  provide  for  the  addition,  subtraction, 
multiplication  and  division  of  arrays  respectively.  These  messages  also  contribute  to 
the  readability  of  the  code.  MAGNITUDE  returns  the  magnitude  of  a  vector  and 
CROSS_PRODUCT  provides  the  cross  product  of  two  vectors.  The  matrix  messages 
TRANSPOSE,  IDENTITY,  DETERMINANT,  and  INVERSE  provide  the  services 
that  their  names  suggest  [Ref.  17]. 
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VI.   THE  MISSILE,  LAUNCHER  AND  TARGETS  OBJECTS 

A.  INTRODUCTION 

This  chapter  discusses  the  missile,  launcher,  and  target  objects.  One  of  our  major 
software  engineering  goals,  understandability,  is  achieved  by  implementing  and 
discussing  the  core  of  the  simulation  in  terms  of  modular  objects.  This  approach  also 
serves  to  accurately  map  the  real-world  problem  space  (see  Figure  3.1)  into  the 
objects  that  form  the  software  solution,  illustrated  in  Figure  B.l  of  Appendix  B. 

B.  THE  MISSILE 

The  MISSILE  object  or  package  withes  the  LAUNCHER,  TARGETS,  missile 
subsystem  objects  and  support  objects  (see  Figure  B.2).  The  LAUNCHER  object 
provides  the  missile  with  launch  aircraft  information  and  TARGETS  provides  target 
information.  Missile  subsystem  objects  are  the  AIRFRAME,  AUTOPILOT, 
RFSEEKER,  IRSEEKER,  and  GUIDANCE.  The  AIRFRAME  contains  further 
subsystems  such  as  the  AERO  and  THRUST.  The  missile  subsystems  serve  as  a  good 
example  of  abstraction,  modularity,  low  coupling  and  high  cohesion.  The  support 
objects  are  MATH,  INTEGRATION,  KINEMATICS,  and  ENVIRONMENT. 
MISSILE  uses  the  time  keeping  messages  of  ENVIRONMENT. 
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1.  MISSILE  Messages 

MISSILE  messages  include  SETUP,  INITIALIZE,  PUTSTATES, 
GETSTATES,  GETDERIVATIVES,  LOGDATA,  MANEUVER  VALUE, 
ENDCONDITIONSMET,  TERMINALCONDITIONS,  and  COMPUTE.  SETUP 

establishes  the  launch  type,  number  of  targets,  number  of  SOJs  and  ECM  power  . 
SETUP  also  signals  the  RFSEEKER  and  KINEMATIC  objects  to  proceed  with 
their  SETUP  routines.  The  INITIALIZE  message  establishes  initial  conditions  for 
many  of  the  missile's  physical  characteristics  such  as  missile  mass,  drag,  thrust,  and 
initial  phase  of  flight.  Also  during  initialization  geometric  initial  conditions  such  as 
ranges  and  heading  angle  are  computed.  AIRFRAME,  GUIDANCE,  RFSEEKER, 
and  IR_SEEKER  are  also  signaled  to  initialize. 

The  message  PUT_STATES  accepts  the  new  states  (i.e,  missile  position  and 
velocity)  when  signaled  by  the  APPLICATION  object.  GET_STATES  presents  the 
caller  with  the  current  missile  states  and  GET_DERIVATIVES  presents  the 
derivatives  of  the  current  states  (i.e.,  missile  velocity  and  acceleration). 

The  LOG_DATA  message  provides  all  the  missile  data,  approximately  forty 
two  items,  that  are  logged  to  disk  or  presented  on  screen  to  the  user. 
MANEUVER_START_ VALUE  returns  the  time  since  launch,  time-to-go  or  range- 
to-go,  which  is  used  to  initiate  the  target  maneuver.  END_CONDITIONS_MET 
provides  a  Boolean  value  indicating  whether  the  appropriate  conditions  (e.g,  target 
intercept,  missile  physical  limits  exceeded,  out  of  energy,  flew  into  the  ground)  have 
been  met  to  terminate  missile  flight.    TERMINAL_CONDITIONS  supplies  the 
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reason  for  flight  termination  plus  terminal  data  items  of  interest  such  as  miss 
distance  (defined  as  the  point  of  closest  approach),  time  of  flight  and  missile  altitude. 
These  are  key  items  for  evaluating  missile  performance.  They  are  displayed  on  the 
terminal  display. 

2.  The  COMPUTE  Message 

The  COMPUTE  message  really  drives  MISSILE.  The  following  sequence  of 
events  occurs  every  time  MISSILE  is  sent  the  COMPUTE  message.  COMPUTE 
requests  target  velocity  and  position  data.  Then  COMPUTE  sends  this  information, 
along  with  missile  position  and  velocity  to  KINEMATICS.  KINEMATICS  replies 
with  missile-to-target  range,  LOS  rate,  range-rate  and  time-to-go.  LAUNCHER  is 
then  signaled  to  provide  the  range  from  the  launch  aircraft  to  the  target.  This 
information  is  then  sent  to  the  RF_SEEKER  to  determine  which  RF  phase  the 
missile  is  in  and  to  determine  the  signal-to-noise  ratio  (SNR)  of  the  signal  the 
missile's  radar  receiver  is  receiving.  COMPUTE  then  calculates  A-pole,  defined  as 
the  range  from  the  launch  aircraft  to  the  target  when  the  missile's  radar  enters  the 
K-band  acquisition  mode  (RF  phases  and  modes  are  discussed  in  the  RF_SEEKER 
section).  If  the  missile  is  within  range  to  use  its  IR  seeker,  IR_SEEKER  is  signaled 
to  determine  the  IR  phase  and  whether  or  not  the  radome  has  been  ejected. 

Next  a  series  of  computations  and  messages  are  executed  resulting  in  the 
missile's  current  acceleration  vector.  First,  COMPUTE  gives  KINEMATICS  the 
missile's  azimuth  (az)  and  elevation  (el)  angles,  and  KINEMATICS  returns  the 
corresponding  direction  cosine  matrix.     Direction  cosine  matrices  are  used  to 
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transform  vectors  between  different  coordinate  systems  [Ref.  18].  In  this  case 
KINEMATICS  returns  the  inertial  to  body  coordinate  system  direction  cosine  matrix 
(TIB  matrix,  for  transform  inertial  to  body).  This  matrix  is  then  multiplied  by  the 
missile-to-target  range  vector  (which  is  in  inertial  coordinates)  resulting  in  a  missile- 
to-target  range  vector  in  missile  body  coordinates.  This  operation  is  also  carried  out 
on  the  other  range  vectors  (i.e.,  second  target  and  SOJs)  if  appropriate.  The  range 
vector  in  missile  body  coordinates  is  then  sent  to  RFSEEKER,  which  returns  the 
seeker  gimbal  angle  in  missile  body  coordinates.  COMPUTE  then  calculates  total 
seeker  angles  (Psi  and  Theta)  by  summing  the  az  and  el  angles  with  the  seeker 
gimbal  angles.  KINEMATICS  is  sent  these  angles  to  use  in  computing  the  direction 
cosine  matrix  for  the  inertial  to  seeker  coordinate  system  transformations  (TIS). 

The  vector  representing  LOS  rate  in  inertial  coordinates  is  then  transformed  into 
seeker  coordinates  for  use  by  GUIDANCE.  COMPUTE  also  calculates  missile 
altitude,  and  altitude  rate  which  are  used  along  with  the  LOS  rate  in  seeker 
coordinates  by  GUIDANCE.  GUIDANCE  is  sent  these  values,  along  with  time-to- 
go  and  target  position  information  and  returns  the  guidance  phase  and  commanded 
acceleration.  Simply  stated,  given  missile  and  target  position  and  velocity 
information,  GUIDANCE  determines  the  required  acceleration  commands  for  the 
missile  to  intercept  the  target.  COMPUTE  then  signals  AUTOPILOT.COMPUTE 
with  the  commanded  accelerations  and  receives  back  the  achieved  accelerations. 
KINEMATICS  then,  given  the  missile's  altitude  and  velocity,  returns  the  missile's 
mach  number.   COMPUTE  signals  THRUST  with  the  missile's  mach  and  altitude 
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and  receives  assorted  information  such  as  missile  mass,  propulsion  phase,  and  thrust. 
The  achieved  accelerations  provided  by  AUTOPILOT.COMPUTE,  along  with  missile 
mach  and  altitude,  are  sent  to  AIRFRAME.AERO  which  returns  the  missile's 
coefficient  of  drag  and  angle  of  attack.  These  values,  along  with  missile  position, 
velocity,  and  acceleration,  are  sent  to  KINEMATICS  (equations  of  motion)  which 
returns  updated  missile  velocity  information,  pitch  and  dynamic  pressure  (Q).  Finally 
the  achieved  accelerations  provided  by  AUTOPILOT.COMPUTE  are  transformed 
from  body  to  inertial  coordinates.  At  this  point  COMPUTE  has  completed  updating 
the  missile's  state. 

C.   KINEMATICS 

The  KINEMATICS,  shown  in  Figure  B.3,  object  calculates  direction  cosine 
matrices,  missile  acceleration,  velocity,  position  and  flight  path  data.  KINEMATICS 
has  the  following  messages:  SETUP,  INITIALIZE,  MACHNO,  DIRCOS, 
COMPUTE,  and  EOM. 

SETUP  establishes  the  number  of  targets  and  the  number  of  SOJs.  INITIALIZE 
initializes  ranges,  range  rates,  and  LOS  rate.  MACH_NO,  given  missile  altitude  and 
velocity,  returns  the  missile's  mach  number.  DIR_COS,  given  two  reference  angles 
between  two  different  coordinate  systems,  returns  the  corresponding  direction  cosine 
matrix.  This  matrix  is  then  used  to  transform  vectors  from  one  coordinate  system  to 
the  other  [Ref.  18]. 
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The  COMPUTE  message  calculates  velocity,  range,  LOS  rate  and  time-to-go. 
COMPUTE  calculates  missile-to-target  velocity  as  the  difference  between  target  and 
missile  velocity.  The  missile-to-target  range  vector  is  calculated  as  the  difference 
between  target  position  and  missile  position.  Both  a  total  range  vector  and  unit 
range  vector  are  also  calculated.  The  range  rate,  defined  as  the  rate  of  change  of  the 
missile-to-target  range  vector,  is  computed  as  the  vector  dot  product  of  the  range  unit 
vector  and  the  missile-to-target  velocity  vector.  The  LOS  rate  is  then  calculated  as 
the  vector  cross  product  of  the  range  unit  vector  and  the  missile-to-target  velocity 
divided  by  total  range.  Range  calculations  are  then  performed  for  the  SOJs  if 
appropriate.  Finally  time-to-go,  the  estimated  time  to  target  intercept,  is  calculated. 
Time-to-go  is  computed,  depending  on  various  conditions,  as  either  range  to  point 
of  closest  approach  (miss  distance)  divided  by  range  rate  or  target  range  divided  by 
range  rate.  Care  has  to  be  taken  to  account  for  possible  opening  ranges  immediately 
after  missile  launch  ,  to  avoid  inaccurate  miss  distance  calculations  during  initial 
flight  phases,  and  to  account  for  range  rate  becoming  less  than  or  equal  to  zero 
during  the  final  phase  of  flight. 

KINEMATICS'  equations-of-motion  message,  EOM,  calculates  the  missile's  axial 
acceleration  vector,  pitch  and  heading.  First  pitch  and  heading  are  determined 
through  trigonometric  relations  of  angle-of-attack  and  velocity.  Then  a  message  is 
sent  to  ENVIRONMENT  to  get  the  air  density.  The  air  density,  along  with  missile 
velocity,  is  used  to  compute  the  dynamic  pressure  (Q).  Missile  drag  is  then 
computed  as  the  product  of  dynamic  pressure,  the  missile's  coefficient  of  drag  and 
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reference  area  (sref).  Finally,  the  missile's  axial  acceleration  vector  is  calculated  and 
returned  to  the  caller.  This  completes  the  description  of  KINEMATICS. 

D.   THE  AIRFRAME 

The  AIRFRAME  models  the  missile's  aerodynamic  characteristics  and  thrust 
characteristics.  AIRFRAME'S  messages  are  INITIALIZE,  AERO,  and  THRUST  as 
shown  in  Figure  B.4. 

INITIALIZE  initializes  the  propulsion  phase,  and  various  physical  constants.  The 
AERO  message,  given  missile  achieved  acceleration,  mach,  altitude,  dynamic 
pressure  (Q),  and  the  dome  condition,  returns  the  missile's  coefficient  of  drag  and 
angle-of-attack  (AOA  or  Alpha).  The  AOA  is  the  difference  between  the  missile's 
velocity  vector  and  its  body  vector.  The  drag  coefficient  is  represented  as  a  series 
of  equations  that  are  a  function  of  missile  mach.  These  equations  represent  a  curve 
fit  of  data  found  through  wind  tunnel  testing  of  the  missile.  In  order  for  the  missile's 
IR  seeker  to  function,  the  radome,  or  dome,  is  ejected  or  blown  off  in  the  final  phase 
of  flight,  increasing  the  drag  coefficient. 

THRUST  uses  missile  mach,  altitude,  fuel  mass,  and  missile  mass  to  provide  the 
thrust  force  and  propulsion  phase.  The  missile  is  modeled  as  having  a  solid  fuel 
rocket  motor.  The  rocket  motor  is  fired  at  launch  for  a  rail  launch,  or  shortly  after 
ejection  for  an  eject  launch.  The  initial  propulsion  phase  is  termed  the  boost  phase. 
After  the  fuel  is  exhausted  the  missile  enters  the  coast  propulsion  phase. 
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E.   THE  AUTOPILOT 

AUTOPILOT  accepts  commanded  accelerations  and  returns  achieved  accelerations 
dependent  on  the  body  responses  of  the  missile.  AUTOPILOTS  messages  are 
INITIALIZE,  UPDATEDIFFEQS,  COMPUTE,  and  ACCELERATIONS  (see 
Figure  B.5).  INITIALIZE  establishes  initial  values  for  autopilot  constants.  The 
autopilot  has  been  modeled  by  differential  equations  which  have  been  implemented 
as  difference  equations  to  avoid  the  instabilities  caused  by  round-off  error  [Ref.  10]. 
UPDATE_DIFF_EQS  updates  the  achieved  accelerations  through  the  difference 
equations.  COMPUTE,  given  the  commanded  accelerations,  returns  the  achieved 
accelerations,  while  ACCELERATIONS  returns  the  instantaneous  accelerations 
being  experienced  by  the  missile.  AUTOPILOT  serves  as  a  good  example  of  an 
object  with  a  simple,  well  defined  interface.  This  interface  can  be  thought  of  as  a 
standard  interface  in  that,  regardless  of  how  the  autopilot  is  modelled,  this  interface 
can  remain  unchanged.  AUTOPILOT  also  serves  as  a  good  example  of  an  object 
or  a  module  that  would  be  an  excellent  candidate  to  go  into  a  library  of  missile 
subsystems.  As  production  missiles  mature,  subsystems  with  new  designs  are 
incorporated.  A  library  of  various  subsystems  would  allow  the  analyst  to  easily 
configure  the  simulation  to  match  any  production  version  of  the  missile.  This  would 
also  permit  the  experimentation  of  new  configurations  with  untested  subsystem 
models. 
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F.   GUIDANCE 

The  function  of  GUIDANCE  is  to  guide  the  missile  to  the  target.  GUIDANCE 
withes  the  MATH  object.  Figure  B.6  indicates  GUIDANCE'S  messages  are 
INITIALIZE  and  COMPUTE. 

INITIALIZE,  given  missile  altitude,  target  altitude,  range,  and  velocity  computes 
initial  values  for  a  number  of  guidance  parameters.  Guidance  parameters  such  as 
guidance  phase,  horizontal  target  range,  velocity,  aspect  angles  and  time  estimates. 
COMPUTE,  given  time-to-go,  missile  altitude,  altitude  rate,  velocity,  axial 
acceleration,  pitch,seeker  gimbal  angles,  LOS  rate,  and  target  position  and  velocity, 
returns  the  guidance  phase  and  acceleration  commands.  These  commanded 
accelerations  will  guide  the  missile  to  intercept  the  target. 

There  are  five  guidance  modes  or  phases:  null  commands,load  bias,  variable  arc, 
altitude  hold,  and  terminal.  Immediately  following  launch  the  missile  is  in  the  null 
commands  phase.  The  purpose  of  this  phase  is  to  ensure  that  no  guidance 
commands  are  generated  until  the  missile  is  safely  clear  of  the  launch  aircraft.  The 
load  bias  phase  commands  a  five  g  pull-up  maneuver  until  the  missile  achieves  a  20 
degree  nose  up  attitude.  The  missile  then  enters  the  variable  arc  phase  where  it  is 
commanded  to  climb  to  a  predetermined  altitude.  Once  reaching  the  predetermined 
altitude,  the  missile  will  remain  at  that  altitude  throughout  the  altitude  hold  phase. 
This  enables  the  missile  to  dive  on  the  target  in  the  terminal  phase,  maximizing  its 
available  energy  to  provide  maximum  range.  The  missile  uses  proportional 
navigation  with  acceleration  compensation  to  compensate  for  missile  and  target 
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accelerations  [Ref.  19].  Horizontal,  or  azimuth  proportional  navigation  is  used  in  all 
guidance  phases  except  null  commands,  while  vertical  proportional  navigation  is  used 
only  in  the  terminal  phase. 

Messages  internal  to  COMPUTE  are  GUIDANCEMODE, 
ALTTTUDEHOLDCMD,  and  GUIDANCECOMMANDS.  GUIDANCEMODE 
replies  with  the  current  guidance  phase.  ALlllUDEHOLDCOMMAND 
commands  the  missile  to  hold  a  constant  altitude.  GUIDANCE_COMMANDS 
calculates  the  commanded  accelerations  or  guidance  commands. 

G.   THE  RF  AND  IR  SEEKERS 

The  missile  uses  its  RF  or  IR  seeker  to  get  information  about  the  target  [Ref.  20]. 
At  longer  ranges,  the  missile  simply  receives  the  RF  energy  reflected  off  the  target 
from  the  launch  aircraft's  radar.  This  is  known  as  the  semi-active  phase.  The  launch 
aircraft's  radar  operates  in  the  X-band  frequency  range.  Initially  the  aircraft's  radar 
is  in  the  X-band  acquisition  mode  and  upon  acquiring  the  target  enters  the  X-band 
track  mode.  At  medium  ranges,  the  missile's  on-board  radar  activates  to  provide 
target  information.  This  is  known  as  the  active  phase.  The  missile's  radar  operates 
in  the  K-band  frequency  range.  The  missile's  radar  is  initially  in  the  K-band 
acquisition  phase  and  enters  the  K-band  track  mode  upon  acquiring  the  target.  At 
short  ranges,  the  missile  activates  its  IR  seeker  to  acquire  and  track  the  target  in  the 
terminal  phase  of  flight.  Like  the  RF  seeker,  the  IR  seeker  has  an  initial  acquisition 
mode  that  is  followed  by  a  track  mode  once  the  target  is  acquired.   In  summary,  at 
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long  ranges  the  launch  aircraft's  more  powerful  radar  provides  the  best  target 
information,  while  at  medium  ranges  the  missile's  own  radar  provides  the  best  target 
information,  and  at  short  ranges  the  missile's  IR  sensor  provides  the  best  target 
information.  Modeling  missile  seekers  is  very  complex  and  involves  security  issues. 
The  seekers  modeled  here  are  rudimentary  and  future  seeker  work  is  discussed  in 
Chapter  VII. 

The  RFSEEKER's  external  messages  are  SETUP,  INITIALIZE,  GIMBAL,  and 
DETECTION  (see  Figure  B.7).  SETUP  establishes  the  number  of  targets  and  SOJs, 
ECM  techniques  and  power,  and  the  target's  RCS.  INITIALIZE  initializes  the  RF 
phase  and  radar  power  levels.  GIMBAL,  given  the  missile-to-target  range  vector, 
replies  with  the  seeker  gimbal  angles.  DETECTION,  given  missile-to-target  range 
and  launch  aircraft-to-target  range,  responds  with  the  RF  phase,  SNR,  the  selected 
target  number,  and  bore  sight  error  (BSE).  The  missile's  BSE  in  this  simulation  is 
the  same  as  the  LOS,  an  imaginary  line  from  the  missile's  seeker  to  the  target.  The 
BSE  to  target  two  is  the  angle  between  the  BSE  to  target  one  and  the  LOS  to  target 
two.   This  parameter  affects  power  levels  received  by  the  missile's  radar. 

RFSEEKER's  internal  messages  are  BORESIGHTERROR  , 
MSLANTGAINSSA,  MSLANTGAINSA,  SAPOWERS,  APOWERS, 
SAPHASE,  APHASE,  SADETECT,  and  ADETECT.  BORESIGHTERROR 
calculates  the  bore  sight  error  to  the  targets  and  SOJs.  This  defines  the  encounter 
geometry  for  the  radar  system  and  affects  the  corresponding  power  levels  of  the 
targets    and    SOJs    seen   by    the    radar   system.       MSL_ANT_GAJNS_SA   and 
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MSL_ANT_GAINS_A  calculate  the  appropriate  gain  of  the  missile's  radar  antenna 
depending  on  the  RF  phase.  SAPOWERS  and  APOWERS  calculates  the  power 
received  by  the  missile's  radar  receiver  based  on  the  classic  radar  range  equation 
[Ref.  21].  SA_MODE  and  A_MODE  determine  the  RF  mode,  acquisition  or  track, 
for  the  semi-active  and  active  RF  phases.  The  SADETECT  and  ADETECT 
determine  whether  or  not  the  missile  can  detect  a  target  given  the  power  level 
received. 

IRSEEKER's  messages  are  INITIALIZE  and  DETECTION  as  shown  in  Figure 
B.8.  INITIALIZE  establishes  the  IR  phase  and  initializes  search,  acquisition  and 
track  times.  DETECTION,  given  missile-to-target  range,  replies  with  the  IR  phase 
and  Boolean  RADOME_OFF,  indicating  the  state  of  the  radome. 

H.   THE  LAUNCHER 

The  LAUNCHER  object  represents  the  aircraft  that  carries  and  launches  the 
missile.  LAUNCHER  withes  MATH  for  math  operations  and  ENVIRONMENT  for 
its  SPEEDOFSOUND  message  (see  Figure  B.9).  LAUNCHER'S  messages  are 
INITIALIZE,  MSLINIT,  SETUP,  LOGDATA,  GETSTATES,  PUTSTATES, 
GETDERIVATWES,  POLE  and  COMPUTE. 

INITIALIZE  initializes  the  launch  aircraft's  velocity  and  position.  MSL_INIT 
provides  launch  aircraft  initialization  information  for  use  by  the  missile.  This 
message  provides  the  missile  with  the  launch  aircraft's  velocity  and  position,  and 
certain  radar  characteristics  based  on  the  launch  aircraft  type.   SETUP  establishes 
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the  launch  aircraft's  guidance  phase,  lead  angle,  mach,  and  altitude.  LOG_DATA 
provides  the  launch  aircraft's  position  to  the  sender.  GET_STATES  returns  the 
launch  aircraft's  state  vector,  while  PUT_STATES  updates  the  launch  aircraft's  state 
vector.  The  derivatives  of  the  launch  aircraft's  state  vector  are  supplied  with 
GETDERIVATIVES.  POLE  provides  the  distance  from  the  launch  aircraft  to  the 
target.  The  COMPUTE  message  provides  the  launch  aircraft's  velocity  if  the  launch 
aircraft  is  in  the  pursuit  guidance  mode. 

I.   THE  TARGETS 

The  TARGETS  object  models  the  aircraft  that  the  missile  is  to  intercept.  The 
Ada  package  TARGETS  is  made  up  of  four  targets.  Two  of  these  targets,  target  one 
and  target  two,  are  treated  as  the  primary  targets,  and  targets  three  and  four  are 
treated  as  stand  off  jammers  (SOJs).  TARGETS  withes  MATH,  ENVIRONMENT, 
and  MISSILE,  as  shown  if  Figure  B.10.  TARGETS  withes  MATH  for  mathematical 
operations  and  uses  ENVIRONMENT  for  its  time  keeping  services  and  its 
SPEEDOFSOUND  message.  TARGETS  uses  the  MISSILE  message 
MANEUVER_VALUE  to  coordinate  target  maneuvers. 

TARGETS'  messages  are  SETUP,  INITIALIZE,  LOGDATA,  GETSTATES, 
PUTSTATES,  GETDERIVATIVES,  TGTDATA,  and  COMPUTE.  SETUP  sets 
up  the  user  entered  target  parameters.  INITIALIZE  computes  the  initial  position 
and  velocity  parameters  for  the  targets.  INITIALIZE  also  calculates  the  final  turn 
angle  and  weave  period  if  appropriate.  LOG_DATA  provides  the  targets'  position, 
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velocity  and  heading  data  for  data  logging.  GET_STATES  and  PUTSTATES  put 
and  get  the  targets'  state  vector  (position),  respectively.  GETDERIVATIVES 
provides  the  derivatives  of  the  targets'  state  vector  (velocity).  TGT_DATA  provides 
both  target  position  and  velocity  data  to  the  sender.  TGTASPECT  provides  the 
sender  with  the  target  one's  aspect  angle. 

COMPUTE  is  the  heart  of  TARGETS.  COMPUTE  calculates  the  targets' 
position,  velocity  and  heading  angle  dependent  on  target  maneuver.  Appropriate 
conditions  are  checked  resulting  in  the  setting  of  flags  and  the  times  for  the 
corresponding  target  maneuver.  Then  the  build-up  time  must  be  considered.  The 
build-up  time  is  the  time  from  the  initiation  of  the  maneuver  until  the  desired 
number  of  g's  is  achieved.  This  models  the  real  world  condition  that  commanded 
maneuvers  are  not  achieved  instantaneously.  The  rate  of  change  of  the  target's 
heading  is  then  calculated  along  with  the  number  of  g's  the  target  is  experiencing. 
The  current  target  heading  angle  is  then  compared  with  the  final  desired  turn  angle. 
The  target  velocity  vector  and  mach  are  then  computed.  Finally,  the  second  target's 
position  is  computed  based  on  its  geometric  relation  with  the  first  target.  To 
summarize,  the  target  heading  angle  is  calculated  based  on  maneuver  type.  Because 
the  targets  have  a  constant  velocity,  the  target  heading  angle  is  required  to  compute 
the  velocity  vector,  which  in  turn  permits  the  computation  of  the  targets'  position 
vector. 
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J.  THE  ENVIRONMENT 

The  ENVIRONMENT  provides  atmospheric  and  time  information. 
ENVIRONMENTS  messages  are  SETTIME,  TIME,  AIRDENSITY,  and 
SPEEDOFSOUND  (see  Figure  B.ll).  ENVIRONMENT  is  the  simulation's  time 
keeper.  SETTIME  allows  the  system  time  to  initialized  and  incremented.  The 
TIME  message  provides  the  current  system  time.  AIRDENSITY  provides  the  air 
density  for  a  given  altitude,  while  SPEEDOFSOUND  provides  the  speed  of  sound 
at  a  given  altitude  [Ref.  9]. 
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VII.   CONCLUSIONS  AND  RECOMMENDATIONS 

A.   CONCLUSIONS 

This  thesis  has  explored  using  object  oriented  techniques  and  software  engineering 
principles  in  conjunction  with  the  Ada  programming  language  to  develop  a  missile 
flight  simulation.  By  using  these  techniques  and  principles  the  problem  space  is 
accurately  mapped  into  software.  This,  along  with  the  principles  of  abstraction, 
information  hiding,  modularity,  loose  coupling,  and  strong  cohesion  produced  a 
simulation  that  is  easily  understood,  modifiable,  efficient  and  reliable. 

Although  understandability  can  be  very  subjective,  all  of  the  missile  analysts  who 
reviewed  the  simulation  agreed  that  the  code  is  much  more  easily  understood  than 
previous  FORTRAN  versions.  Modularity,  high  cohesion,  and  loose  coupling 
permitted  the  simulation  to  be  modified  in  easily.  Modules  were  designed  to  serve 
a  single  purpose  and  to  make  use  of  only  the  data  or  control  information  presented 
by  the  interfaces  of  other  modules.  All  the  interfaces  are  well  defined  and  are 
standard  for  that  particular  module.  A  good  example  is  the  abstraction  of  the  missile 
airframe  subsystem.  By  being  modular  and  having  a  standard  well  defined  interface, 
this  subsystem  evolved  from  a  program  stub  to  a  fairly  complex  model  with  minimal 
programming  effort.  Also  by  having  a  standard  well  defined  interface  between 
objects  or  modules,  a  library  of  different  models  can  be  built  to  explore  different 
missile  and  target  configurations.  The  simulation  is  simply  relinked  with  the  desired 
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module.    This  allows  a  number  of  different  models  to  be  built  relatively  quickly. 
These  models  then  can  be  used  for  comparison  studies. 

Through  abstraction,  information  hiding,  and  modularity  a  very  efficient  user 
interface  was  developed.  The  simulation  has  also  proven  itself  to  be  highly  reliable, 
producing  consistent  results  that  agree  with  missile  system  expert's  predictions.  The 
simulation  has  also  proven  to  be  quite  robust,  surviving  the  most  mischievous  users 
without  crashing. 

B.   RECOMMENDATIONS  AND  FUTURE  WORK 

This  thesis  has  laid  the  ground  work  for  a  generic  missile  flight  simulation  that 
will  evolve  to  model  existing  classified  missile  systems.  The  continued  improvement 
of  the  various  models  used  in  the  simulation  is  highly  recommended.  Future  work 
includes  consulting  local  Pacific  Missile  Test  Center  missile  system  experts  to 
improve  and  validate  models.  This  will  involve  modifying  the  generic  MISSILE  to 
model  a  specific  missile  system.  Work  could  then  progress  on  the  classified  aspects 
of  the  missile's  radar  system  and  the  electronic  countermeasures  aspects  of  the 
simulation.  This  might  include  modifying  the  ENVIRONMENT  to  model  IR 
environmental  concerns  such  as  fog  and  haze,  and  radar  environmental  concerns  such 
as  ground  clutter.  The  objects  or  modules  will  permit  the  experts  to  concentrate  on 
the  detailed  level  of  their  particular  area  of  expertise,  isolated,  if  desired,  from  the 
programming  details  of  the  other  objects.  Drivers  will  be  developed  to  permit  these 
objects  to  be  tested  stand-alone  as  individual  components. 


74 


Work  is  also  underway  on  the  SYSTEMSPECIFIC  and  LOWLEVEL  objects 
for  the  Apple  Macintosh  computer.  Once  these  objects  are  developed  the  simulation 
will  run  on  the  Macintosh  computer.  A  particularly  good  area  for  future  work 
involves  the  data  the  simulation  generates.  The  simulation  is  capable  of  generating 
large  amounts  of  data  that  must  be  interpreted  by  analysts.  Work  is  progressing  on 
a  object  or  package  that  will  plot  the  data  sets.  Future  work  might  include  an  expert 
system  that  reviews  the  data  to  assist  the  analyst  in  identifying  problem  areas  in 
missile  performance. 
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APPENDIX  A 
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Figure  A.l  The  Control  and  Support  Objects 
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Figure  A.6  INTEGRATION 
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APPENDIX  B 
PROBLEM  SPACE  OBJECT  DIAGRAMS 
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Figure  B.l  The  Software  Mapping  of  the  Problem  Space 
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APPENDIX  C 
CONTROL  OBJECT  SOURCE  CODE  LISTING 


Simulation  Executive  Procedure 

This  is  the  top  level  procedure  for  the  simulation. 


with  APPLICATION; 
with  USERJNTERFACE; 

procedure  SIM  is 
begin 

APPLICATION. INITIALIZE_SYSTEM ; 

USERJNTERFACE. MAIN; 
end  SIM; 


-  Application  Package  Specification 

■-  This  package  contains  the  application  specific  functions  called  by  the 
—  general  Executive  Package. 


with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  MODEL  JYPES;  use  MODEL  JYPES; 

package  APPLICATION  is 

function  NUMBER_OF_STATE_VARIABLES 
return  integer; 

function  END_CONDITION_MET 
return  boolean; 

procedure  INITIALIZE_SYSTEM; 

procedure  SIMULATION_MAIN( 

SETUP_VALUES  :  in  SETUPJ/ALUESJYPE); 

procedure  GET_DERIVATIVES  ( 
DERIVATIVES  :  out  VECTOR); 

procedure  GET_STATES  ( 
STATES  :  out  VECTOR); 

procedure  PUT_STATES  ( 
STATES  :  Tn  VECTOR); 

procedure  COMPUTE_DERIVATIVES; 

procedure  LOG_DATA; 

procedure  END_OF_RUN; 

procedure  GET_TIMES(TIME_ARRAY  :  out  VECTOR;  NUMBER_OF_VALUES  :  out 
integer); 

procedure  GET_VARIABLE(WHICH  VARIABLE  :  in  integer;  RETURNVARIABLE 
out  VECTOR;  NUMBER_OF_VALUES  :  out  integer); 

end  APPLICATION; 
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--  Application  Package  Body 

--  This  package  contains  the  application  specific  functions  called  by  the 
--  general  Executive  Package. 


th  MATH;  use  MATH; 

th  MOOEL_TYPES;  use  MODELJTYPES; 

th  REAL  MATRIX;  use  REAL_MATRIX; 

th  ENVIRONMENT; 

th  SYSTEM_SPECIFIC; 

th  USERJNTERFACE; 

th  MISSILE; 

th  LAUNCHER; 

th  TARGETS; 

th  Calendar;  use  Calendar; 

th  Text_io; 

th  REAL  10; 

th  INTEGRATION; 

th  LOU_LEVEL_GRAPHICS; 

th  UNCHECKED_DEALLOCATION; 


package  body  APPLICATION  is 
LOGGING_TO_DISK  :  boolean; 
MEMORY_FULL  :  boolean; 

LOG_INTERVAL  :  integer;  --  Frames  between  data  logging 
LOG~RECORD  :  LOG_RECORD_TYPE; 

type  LOGGED_DATA; 

type  LOGGED~DATA_PTR_TYPE  is  access  LOGGED_DATA; 

type  LOGGED_DATA  is 

record 

time  :  real; 

DATA  :  LOG_RECORD_TYPE; 

NEXT_RECORD  :  LOGGED_DATA_PTR_TYPE; 
end  record; 

pragma  PACK(LOGGED_DATA); 

FIRST_DATA_RECORD  :  LOGGED_DATA_PTR_TYPE  :=  null; 
CURRENT_DATA_RECOR0  :  LOGGED_DATA_PTR_TYPE; 

TERMINATE_FLAG  :  boolean; 

START_TIME  :  Time; 

LOG  DATA_FILE  :  Text  io.Fi le_type; 
MISSILE_STATES  :  VECTORO . .6); 
LAUNCHER_STATES  :  VECT0R(1 . .3); 
TARGET_STATES  :  VECT0R(1 . .3); 

procedure  L0G_DATA  is  separate; 


procedure  SHOW  TERMINAL_CONDITIONS  is 

A_P0LE  :  REAL; 

MISS  DISTANCE:  REAL; 

TIME~OF  FLIGHT:  REAL; 

ALTITUDE:  REAL; 

RDOT:  REAL; 

STOP_COND I T I ON :  STOP_COND I T I ON_T YPE ; 
begin 

MISSILE.TERMINAL_CONDITIONS(A_POLE,  MISS_DISTANCE,  TIME_OF_FLIGHT, 
ALT  I TUDE , RDOT , STOP_COND I T I  ON ) ; 

SYSTEM_SPECIFIC.PUT_REAL(  2,29,  TIME_OF_FLIGHT); 
SYSTEM_SPECIFIC.PUT_REAL(  3, 67, ALTITUDE,  1);  --  Altitude 
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SYSTEM_SPECIFIC.PUT_REAL(  15 ,67,MISS_DI STANCE/  FEET_PER_NMI  ,  1); 
SYSTEM_SPECIFIC.PUT_REAL( 16,67, RDOT,  1); 

SYSTEM_SPECIFIC.PUT_STRING(21,41,  "Reason  for  termination   :"); 
SYSTEM_SPECIFIC.PUT_STRING(21,68,  STOP_REASON(STOP_CONDITION)); 

if  MISS_DISTANCE  <  10_000.0  then 

SYSTEM  SPECIFIC.PUT_STRING(22,41,  "Miss  Distance,  ft       :"); 

SYSTEM~SPECIFIC.PUT_REAL(22,67,MISS_DISTANCE,2);  --  Miss-Dist,  ft 
end  if; 

if  MISSILE. IS_ACTIVE  then 

SYSTEM_SPECIFIC.PUT_STRING(23,41,  "A-Pole,  NMI  :"); 

SYSTEM_SPECIFIC.PUT_REAL(23,67,  A_POLE  /  FEET_PER_NMI );  --  A-Pole 
end  if; 
end  SHOW  TERMINAL  CONDITIONS; 


procedure  INITIAL IZE_S I MULATI ON (OUTPUT_FILE  :  in  string)  is 
procedure  FREE  is  new  UNCHECKED_DEALLOCATION( 
LOGGED_DATA,  LOGGED_DATA_PTR_TYPE); 

PRE V_DATA_RE CORD  :  LOGGED_DATA_PTR_TYPE; 
begin 

if  FIRST_DATA_RECORD  /=  null  then 

CURRENT_DATA_RECORD  :=  FIRST_DATA_RECORD; 
while  CURRENT_DATA_RECORD.NEXT_RECORD  /=  null  loop 
PREV_DATA_RECORD  :=  CURRENT_DATA_RECORD; 
CURRENT_DATA_RECORD  :=  CURRENT_DATA_RECORD.NEXT_RECORD; 
FREE(PREV_DATA_RECORD); 
end  loop; 

FREE(CURRENT_DATA_RECORD); 
FIRST_DATA_RECORD  :=  null; 
end  if; 

TERMINATE_FLAG  :=  false; 

LAUNCHER. INITIALIZE; 

TARGETS. INITIALIZE; 

MISSILE. INITIALIZE; 

USER_I NTERFACE . SETUP_RUNT I ME_SCREEN; 

START  TIME  :=  Clock; 

MEMORY_FULL  :=  false; 

if  LOGGING_TO_DISK  then 

Text  io.Create(LOG_DATA_FILE,  Text  io. 
Text_io.Put(LOG_DATA_FILE 
"Time     ,Msl  Pos  N 
Text_io.Put(LOG_DATA_FILE 

"Velocity  ,Msl  Head_A 
Text_io.Put(LOG_DATA_FILE 

"Range_Rate, T  ime_To_Go 
Text_io.Put(LOG_DATA_FILE 
"El_Rate_T1,Az_Rate_T1 
Text_io.Put(LOG_DATA_FILE 

"X  Axis  Acc,Az  Acc_Ach 
Text  io.Put?LOG_DATA_FILE 

"Tot_Alpha  , Alpha 

Text  io.Put(LOG  DATA  FILE 

"Tgt  Type  7*gt  T  BSE 

Text_io.Put(LOG_DATA_FILE 

"LAC  Pos_N  ,LAC  Pos_E 

Text  io.Put(LOG_DATA  FILE 

"T1  Alt    7T2  Pos  N 

Text_i  oTPut ( LOG_DATA_fTlE 

"T1_Mach   ,T1_Hdg_Ang 
Text_io.Put(LOG_DATA_FILE 
"IR_Phase  7Radoin_Off 
Text_io.New_line(LOG_DATA_FILE); 
end  if; 


Out_file,  OUTPUT_FILE); 
Altitude  ,R_LAC_Tgt  ,") 


Pitch_Ang  , 

Skr_TotAng, 

Alt_Rate  , 

El_Acc_Ach,Msl_l 

Beta     , 

Tgt  2  BSE  , 

LAC_Alt 

T2  Pos  E  , 


Msl_Mach  ,Range_Tgt 
Skr_El_Ang,Skr_Az_Ang 
Az_Acc_Cmd, E l_Acc_Cmd 
Msl_Mass  .Thrust 
SNR       ,Drag_Coef 
Tgt  3  BSE  ,Tgt  4  BSE 
T1_Pos_N  ,T1_Pos_E 


Guid_Phase,Msl_Phase  ,RF_Phase 
Prop_Phase"); 


COMPUTE_DERIVATIVES; 


96 


end  INITIALIZE_SIMULATION; 


procedure  CHECK_PAUSE  is 

KEY_AVAILABLE  :  boolean; 

KEY  :  character; 
begin 

USER_I NTER  FACE . KE YBOARD_HANDLER . KE Y_AVA I LABLE ( KE Y_AVA I  LABLE ) ; 

if  not  END_CONDITION_MET  and  not  KEY_AVAILABLE  then 
return; 

end  if; 

USERJNTERFACE.KEYBOARD_HANDLER.GET_KEY_NOUAlT(KEY,    KEYJWAI  LABLE ); 
if  END_CONDITION_MET  or~else  (KEYJWAI  LABLE  and  KEY  =   '    ')   then 
SYSTEM_SPECIFIC.REVERSE_VIDEO_ON; 

if  END_CONDITION_MET  then 

SYSTEM_SPECIFIC.PUT_STRING(24,    12, 

"  Run  completed.   Press  space  bar  to  return  to  main  menu  "); 
else 

SYSTEM_SPECIFIC.PUT_STRING(24,    15, 

"  Press  space  bar  to  continue  run,   T  to  terminate  "); 
end  if; 

SYSTEM_SPECIFIC.REVERSE_VIDEO_OFF; 

loop 

USER_INTERFACE.KEYBOARD_HANDLER.GET_KEY_WAIT(KEY); 

if  KEY  =  '  '  then 

if  not  END_CONDITION_MET  then 

USER_INTERFACE.DRAW_RUNTIME_BORDER; 

end  if; 

exit; 
end  if; 

if  KEY  =  't'  or  KEY  =  'T'  then 
TERMINATE_FLAG  :=  true; 
exit; 
end  if; 
end  loop; 
end  if; 
end  CHECK  PAUSE; 


procedure  SIMULATION_MAIN(SETUP  VALUES  :  in  SETUP_VALUES_TYPE)  is 

FRAME_NUMBER   :  integer; 

NEXT_LOGGING_FRAME  :  integer; 
begin 

LOGGING_TO_DISK  :=  boolean' val( YES_NO_TYPE'pos(SETUP_VALUES. LOG_DATA)); 

launcher . setup( setup_values . i nt_gu i dance , 
deg_to_rad*setup  values. i nt_lead_angle_ic, 
setup_values.intjiach  ic, 
1000.0*setup_values.int_altitude_ic, 
setup_values . i nt_type_i c ) ; 

targets. setup(deg_to_rad*setup_values.tgt_aspect_ic, 
setup  values. tgt2_angle_ic, 
setup~values.tgt_mach  ic, 
setup  values. tgt_turn~g_ic, 
setup_values . tgt_weave_per_i c , 
setup~values.tgt_turnon  value_ic, 
deg_to_rad*setup_valuesTtgt_turn_ang_ic, 
setup  values. tgt  buildup_time_ic, 
setup~values . tgt~range_i c , 
setup_values.tgt~altitude  ic, 
setup_values . so j_angle_i c~ 
setup_values . maneuverjc i nd , 
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SETUP  VALUES. TGT_TWO_IC, 
SETUPJ/ALUES . SO J_ONE_I C , 
SETUP  J/ALUES. SO J~TWO  IC, 
SETUPJ/ALUES . TURN  J)N~PARAMETER ) ; 

MI  SSI LE.SETUP(SETUP  J/ALUES. LAUNCH JYPE, 
SETUPJ/ALUES. TGT  RCS  IC, 
SETUPJ/ALUES . TGTT I R_S I ZE , 
SETUP  J/ALUES . TGT2 J R  J>  I ZE , 
SETUPJ/ALUES.  TGTJWOJC, 
SETUP  J/ALUES .  SOJJQNEJ  C , 
SETUP  J*ALUES .  SOJ_TWO  ~I  C , 
SETUP  J/ALUES. TGT _ECM  POUER_IC, 
SETUP  J/ALUES .  TGT  J^CMJECH  J  C , 
SETUPJ/ALUES .  SOJ  J^CM  JECH  J  C )  ; 

LOG J NTERVAL  :=  SETUP  J/ALUES. LOG J NTERVAL; 

ENVIRONMENT. SET  TIME(O.O); 

INTEGRATION. SET~TIMEJ^TEPJ^IZE(SETUP  J/ALUES. FRAME_TIME); 

NEXTJOGGING_FRAME    :=   1; 

FRAMEJWMBER    :=  0; 

INITIALIZEJ^IMULATION(SETUP  J/ALUES.  OUTPUT_FILE); 

INTEGRATION. INITIALIZE; 

while  not  END_CONDITIONJ1ET   loop 

FRAME JWMBER   :=  FRAME JftJMBER  +  1; 

if   FRAME  J1UMBER  =  NEXTJOGGING_FRAME   then 

LOG_DATA; 

NEXTJOGGINGJ^RAME    :=  NEXT  JOGGING_FRAME  +   LOG J NTERVAL; 
end  if; 

I NTEGRAT I ON . ADVANCE  JT I ME  ; 

if  END  CONDITIONJ4ET  then 

LOGJ5ATA; 

SHOW_TERMINAL_CONDITIONS; 
end  if; 

CHECK _PAUSE; 

end  loop; 

END  OF  RUN; 

end  SIMULATIONJiAIN; 


f unct  i  on  NUMBER_OF _STATE J/AR I ABLES 

return  integer  is 
begin 

return  14; 
end  NUMBER_OFJ^TATEJ/ARIABLES; 


function  ENDj:ONDITION_MET 

return  boolean  is 
begin 

if  TERMINATE_FLAG  or  MISSILE. END_CONDITIONSJ1ET  then 

return  true; 
else 

return  false; 
end  if; 
end  END_CONDITIONJiET; 


procedure  INITIALIZE_SYSTEM   is 
begin 

SYSTEMJ>PECIFIC.INITJ/IDEO; 

USER J NTER FACE . SHOW_T I T LE  J>CREEN ; 
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end  INITIALIZE_SYSTEM; 


procedure  GET_DERIVATIVES  ( 

DERIVATIVES  :  out  VECTOR)  is 
begin 

DERIVATIVES0..6)   :=  MISSILE. GET_DERIVATIVES; 

DERIVATIVES(7..9)  :=  LAUNCHER. GET_DER I  VAT  IVES; 

DERIVATIVES(10..12)  :=  TARGETS. GET_DERIVATIVES; 
end  GET_DERIVATIVES; 


procedure  GET_STATES  ( 

STATES  :  out  VECTOR)  is 
begin 

STATES<1..6)   :=  MISSILE. GET_STATES; 

STATES(7..9)  :=  LAUNCHER. GET_STATES; 

STATES(10..12)  :=  TARGETS. GETSTATES; 
end  GET_STATES; 


procedure  PUT_STATES  ( 

STATES  :  in  VECTOR)  is 
begin 

MISSILE_STATES  :=  STATES(1 . .6); 

MISSILE. PUT_STATES(MISSILE_STATES); 

LAUNCHER_STATES  :=  STATES(7. .9); 

TARGET_STATES  :=  STATES(10. .12); 

LAUNCHER . PUT_STATES( LAUNCHER_STATES ) ; 

TARGETS . PUT_STATES(TARGET_STATES ) ; 
end  PUT_STATES; 


procedure  COMPUTE_DERIVATIVES  is 
begin 

LAUNCHER. COMPUTE; 

TARGETS. COMPUTE  ; 

MISSILE. COMPUTE; 
end  COMPUTE_DERIVATIVES; 


procedure  END_OF_RUN  is 
begin 

if  LOGGING_TO_DISK  then 

Text_io.Close(LOG_DATA_FILE); 

end  if; 
end  END_OF_RUN; 


procedure  GET_TIMES(TIME_ARRAY  :  out  VECTOR;  NUMBER_OF_VALUES  :  out 
integer)  is 

NUMBER  VARIABLES  :  integer; 
DATA_RECORD  :  LOGGED_DATA_PTR_TYPE; 
begin 

DATA_RECORD  :=  FIRST_DATA_RECORD; 

NUMBER  VARIABLES  :=  1; 

while  (DATA_RECORD  /=  null)  loop 

TIME_ARRAY(NUMBER_VARIABLES)  :=  DATA_RECORD.Time; 
DATAJ*ECORD  :=  DATA  RECORD. NEXT_RECORD; 
NUMBER_VARIABLES  :=~NUMBER_VARIABLES  +  1; 
end  loop; 

NUMBER_OF_VALUES  :=  NUMBER_VARIABLES  -  1; 
end  GET_TIMES; 


procedure  GET_VARIABLE(UHICH_VARIABLE  :  in  integer;  RETURNJ/ARIABLE 
out  VECTOR;  NUMBER_OF_VALUES  :  out  integer)  is 
NUMBER  VARIABLES  :  integer; 
DATA  RECORD  :  LOGGED_DATA  PTRTYPE; 


99 


begin 

DATA_RECORD  :=  FIRST_DATA_RECORD; 
NUMBER_VARIABLES  :=  1; 
while  (DATA_RECORD  /=  null)  loop 
if  (WHICH  VARIABLE  >=  50)  then 

RETURN_VARIABLE(NUMBER_VARIABLES)  := 

DATA_RECORD.DATA.LAUNCHER_DATA.REAL_VALUE(UHICH_VARIABLE-50); 
--  !!!  FIX  LAUNCHER_DATA  Also  see  PLOT. ADA 
else 

RETURN_VARIABLE(NUMBER_VARIABLES)  := 

DATA_RECORD. DATA. MI  SSI LE_DATA.REAL_VALUE(WHICH_VARI ABLE); 
end  if; 

DATA_RECORD  :=  DATA_RECORD.NEXT_RECORD; 
NUMBER_VARIABLES  :=  NUMBER_VARIABLES  +  1; 
end  loop; 

NUMBER_OF_VALUES  :=  NUMBER_VARIABLES  -  1; 
end  GET_VARIABLE; 
end  APPLICATION; 

--  Application  Package  Subunit 

--  This  package  contains  the  application  specific  functions  called  by  the 
--  general  Executive  Package. 


separate  (APPLICATION) 


procedure  LOG_DATA  is 
begin 

LOG_RECORD.MISSILE_DATA  :=  MISSILE.LOG_DATA; 

LOG  RECORD. LAUNCHER_DATA  :=  LAUNCHER.  LOGJMTA; 

LOG~RECORD.TARGET_DATA  :=  TARGETS. LOG_DATA; 

begin 

if  not  MEMORY_FULL  then 

if  FIRST_DATA_RECORD  =  null  then 
FIRST_DATA_RECORD  :=  new 
LOGGED_DATA ■ ( t i me  =>  environment. time, 
DATA  =>  LOG_RECORD,  NEXT_RECORD  =>  null); 
CURRENT_DATA_RECORD  :=  FIRST_DATA_RECORD; 
else 

CURRENT_DATA_RECORD.NEXT_RECORD  :=  new 
LOGGED_DATA'(time  =>  environment. time, 
DATA  =>  LOG_RECORD,  NEXT_RECORD  =>  null); 
CURRENT_DATA_RECORD  :=  CURRENT_DATA_RECORD.NEXT_RECORD; 
end  if; 
end  if; 
except  i  on 

when  STORAGE_ERROR  => 
MEMORY_FULL  :=  true; 
SYSTEM~SPECIFIC.REVERSE_VIDEO_ON; 
SYSTEM~SPECIFIC.PUT_STRING(20,  41, 

"Data  memory  full  at  time  :         "); 
SYSTEM  SPECIFIC. PUT  REAL (20, 67,  ENVIRONMENT.Time); 
SYSTEM~SPECIFIC.REVERSE_VIDEO_OFF; 
end; 

if  LOGGING_TO  DISK  then 

REAL_IO.Put(LOG_DATA_FILE,  ENVIRONMENT.Time,  AFT  =>  3); 
Text_io.Put(LOG_DATA_FILE,  ","); 

for  I  in  1..34  loop 

REAL_IO.Put(LOG_DATA_FILE,  LOG_RECORD.MISSILE_DATA.REAL_VALUE(I ), 
AFT  =>  3); 

Text_io.Put(LOG_DATA_FILE,  ","); 
end  loop; 
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for  I  in  1..12  loop 

REAL_IO.Put(LOG_DATA_FILE,  LOG_RECORD.LAUNCHER_DATA.REAL_VALUE(I ), 
AFT  =>  3);  " 

Text_io.Put(LOG_DATA_FILE,  ",">; 
end  loop; 

Text_io.Put(LOG_DATA_FILE,  integer' image(GUIDANCE_PHASE_TYPE'pos( 

LOG_RECORD.MISSILE_DATA.GUIDANCE_PHASE))); 
Text_io.Put(LOG_DATA_FILE,  ","); 

Text_io.Put(LOG_DATA  FILE,  integer' image(RF_PHASE_TYPE1 'pos( 

L0G_REC0RD.MISSILE_DATA.RF_PHASE_1))); 
Text_i  o . Put ( LOG_0ATA_F I LE ,  " , " ) ; 

Text_io.Put(LOG_DATA_FILE,  integer' image(RF_PHASE_TYPE2'pos( 

LOG_RECORD.MISSILE_DATA.RF_PHASE_2))); 
Text_io.Put(LOG_DATA_FILE,  ","); 

Text_io.Put(LOG_DATA_FILE,  integer' image(IR_PHASE_TYPE'pos( 

LOG_RECORD.MISSILE_DATA.IR_PHASE))); 
Text_io.Put(LOG_DATA_FILE,  ","); 

Text_i  o . Put ( LOG_DATA_F I LE ,  i  nteger ' i mage( boo I ean ' pos ( 

LOG_RECORD.MISSILE_DATA.RADOME_OFF))); 
Text_io.Put(LOG_DATA_FILE,  ","); 

Text_io.Put(LOG_DATA  FILE,  integer' image(PROPUL_TYPE' pos ( 
LOG_RECORD.MISSILE_DATA.PROPULSION_PHASE))); 

Text_io.New_line(LOG_DATA_FILE); 
end  if; 

SYSTEM_SPECIFIC.PUT_REAL(  1,29,  REAL(Clock  -  START_TIME)); 
SYSTEM_SPECIFIC.PUT_REAL(  2,29,  ENVIRONMENT. Time); 
SYSTEM_SPECIFIC.PUT_REAL(  3,29, 

LOG_RECORD.MISSILE_DATA.REAL_VALUE(1D);  --  Time  to  go 
SYSTEM_SPECIFIC.PUT_STRING(  5,30, 

RF_M00E(L0G_REC0RD.MISSILE_DATA.RF_PHASE_2));  --  RF  seeker  mode 
system_specific7put  STRING(  6,30, 

IR_MOOE(LOG_RECORD.MISSILE_DATA.IR_PHASE));  --  IR  seeker  mode 
SYSTEM_SPECIFIC.PUT_REAL(  7,29,  L0G_REC0RD.MISSILE_DATA.REAL_VALUE(14)); 
--  Az  Gimbal  Angle 

SYSTEM_SPECIFIC.PUT_REAL(  8,29,  L0G_REC0RD.MISSILE_DATA.REAL_VALUE<13)); 
--  El  Gimbal  Angle 
SYSTEM_SPECIFIC.PUT_REAL(  9,29,  LIMIT(LOG_R£CORD.MISSILE_0ATA. 

REAL_VALUE(16), 9999. 9999),  4);  --~Az  LOS  Rate 

SYSTEM_SPECIFIC.PUT_REAL(10,29,  LIMIT(LOG_RECORD.MISSILE_DATA. 

RE AL_VALUE( 15), 9999.9999),  4);  --  El  LOS  Rate 

SYSTEM_SPECIFIC.PUT_STRING( 12,30,  GUIDANCE_MODE< 

LOG_RECORD. MISSILE  DATA.GUIDANCE_PHASE));  --  Guidance  mode 
SYSTEM_SPECIFIC.PUT_REAL( 13,29, 

LOG_RECORD. MISSILE  DATA.REAL_VALUE(18)  /  G,  4);  --  Az  Ace  Cmd 
SYSTEM_SPECIFIC.PUT_REAL(K,29, 

LOG_RECORD.MISSILE_DATA.REAL_VALUE(19)  /  G,  4);  --  El  Ace  Cmd 

SYSTEM_SPECIFIC.PUT_STRING(16,30,  PROPULSI0N_MO0E( 

"  LOG_RECORD. MISS I LE_DATA. PROPULSION  PHASE));  --  Propulsion  mode 
SYSTEM  SPECIFIC. PUT_REAL< 17,29, 

LOG_RECORD.MISSILE_DATA.REAL_VALUE(24),  1);  --  Thrust 

SYSTEM_SPECIFIC.PUT_REAL(19,29, 

LOG_RECORD.MISSILE_DATA.REAL  VALUE(23));  --  Msl  Weight 
SYSTEM_SPECIFIC.PUT_REAL(20,29,  LOG_RECORD.MISSILE_DATA.REAL_VALUE(26)); 
--  Msl  Alpha 

SYSTEM_SPECIFIC.PUT_REAL(21,29,  LOG_RECORD.MISSILE_DATA.REAL_VALUE(27)); 
--Msl  Beta 

SYSTEM_SPECIFIC.PUT_REAL(  1,67, 
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LOG_RECORD. MISSILE  DATA. REAL  VALUE(8),  3);  —  Mach 
SYSTEM_SPECIFIC.PUT  REAL(  2,67, 

LOG  RECORD.MISsTlE_DATA.REAL_VALUE(5),  1);  --  Velocity 
SYSTEM  SPECIFIC.PUT_REAL(  3,67, 

LOG_RECORD.MISSILE_DATA.REAL  VALUE(3),  1);  --  Altitude 
SYSTEM_SPECIFIC.PUT_REAL<  4,67,  " 

L0G_REC0RD.MISSILE_DATA.REAL_VALUE(17));  --  Altitude  Rate 
SYSTEM_SPECIFIC.PUT_REAL(  5,67,  L0G_REC0RD.MISSILE_DATA.REAL_VALUE(7)); 
--  Pitch  Angle 

SYSTEM_SPECIFIC.PUT_REAL(  6,67,  L0G_REC0RD.MISSILE_DATA.REAL_VALUE(6)); 
--  Yaw  Angle 
SYSTEM_SPECIFIC.PUT_REAL(  7,67,  LOG_RECORD. 

MISSILE_DATA.REAL_VALUE(1)  /  FEET  PER_NMI  ,1); 
SYSTEM_SPECIFIC.PUT_REAL(  8,67,  LOG_RECORD. 

MISSILE_DATA.REAL_VALUE(2)  /  FEET_PER_NMI  ,1); 
SYSTEM_SPECIFIC.PUT  REAL(10,67, 

LOG_RECORD.MISSILE_DATA.REAL_VALUE(20)  /  G,  4); 
SYSTEM  SPECIFIC. PUT_REAL(11, 67, 

LOG  RECORD. MISSILE_DATA.REAL_VALUE(21)  /  G,  4); 
SYSTEM_SPECIFIC.PUT  REAL (12, 67,  " 

LOG_RECORD.MISsTlE_DATA.REAL_VALUE(22)  /  G,  4); 


SYSTEM_SPEC I F I C . PUT_REAL ( 1 5 , 67,  LOG_RECORD . 

MISSILE  DATA. REAL  VALUE(9)  /  FEET  PER  NMI  ,  1) 


-  Ms  I  Downrange 

-  Msl  Crossrange 

-  X  Axis  Accel 
■-  Y  Axis  Accel 
■-  Z  Axis  Accel 


-  Msl-Tgt  Range 

-  Lnchr-Tgt  Range 


SYSTEM_SPECIFIC.PUT_REAL(14,67,  LOG  RECORD. 

MISSILE_DATA.REAL_VALUE(4)  /  FEET_PER_NMI  ,  1) 
SYSTEM_SPECIFIC.PUT_REAL( 17,67, 

L0G_REC0RD.LAUNCHER_DATA.REAL_VALUE(11),  3);  --  Tgt  Mach 
SYSTEM_SPECIFIC.PUT_REAL(16,67, 

LOG_RECORD. MISSILE  DATA.REAL_VALUE(10),  1);  --  Tgt  Range  Rate 
SYSTEM_SPECIFIC.PUT_REAL( 18,67, 

LOG_RECORD. LAUNCHER  DATA.REAL_VALUE(6),  1);  --  Tgt  Altitude 
SYSTEM_SPEC I F I C . PUT_REAL (19,67,  LOG_RECORD . LAUNCHER_DATA . 

REAL  VALUE(12),  1);  --  Tgt  heading  ang 
end  LOG_DATAj 

--  User  Interface  Package  Specification 

--  This  package  contains  all  the  procedures  that  perform  input/output  between 
--  the  program  and  the  user  via  the  screen  and  keyboard. 


with  MATH;  use  MATH; 
package  USERJNTERFACE  is 

procedure  MAIN; 

procedure  SHOW_TITLE_SCREEN; 

procedure  DRAW_RUNTIME_BORDER; 

procedure  SETUP_RUNTIME_SCREEN; 

task  KEYBOARD_HANDLER  is 

entry  KEY~AVAILABLE(KEY_IN_BUFFER  :  out  boolean); 

entry  GET_KEY_WAIT(KEY  :  out  character); 

entry  GETJCEY  NOWAIT(KEY  :  out  character;  KEYJ/ALID  :  out  boolean); 
end  KEYBOARD_HANDLER; 

end  USERJNTERFACE; 

--  User  Interface  Package  Body 

--  This  package  contains  all  the  procedures  that  perform  input/output  between 
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the  program  and  the  user  via  the  screen  and  keyboard. 


with  MATH;  use  MATH; 

with  MOOEL_TYPES;  use  MODEL_TYPES; 

with  SYSTEM_SPECIFIC; 

with  APPLICATION; 

with  MISSILE; 

with  PLOT; 

with  Text_io; 

with  REALJO; 

package  body  USERJNTERFACE  is 

MESSAGE_D I  SPLAYED  :  boolean  :=  false;  --  Message  on  at  screen  bottom 

MENU_START_ROW  :  constant  :=  6; 

DATA_COLUMN  :  constant  :=  42; 

ITEM~TEXT_SIZE  :  constant  :=  30; 

MENU  TEXT_SIZE  :  constant  :=  30; 

STRING_SIZE  :  constant  :=  60; 

type  STRING_ARRAY  is  array(positive  range  <>)  of  stringd . .STRINGSIZE); 

TEMP_STRING  :  stringd . . ITEM_TEXT_SIZE); 

QUIT_STRING  :  stringd . .MENU_TEXT_SIZE)  :=  "Quit  program 
RETURN_STRING  :  stringd . .MENU_TEXT_SIZE):="Return  to  previous  menu 
BLANK_STRING  :  stringd . .STRING_SIZE)  := 


type  MENU_ITEM_K 
type  DATA_ITEM_K 
TGT_IR_SIZE, 
SSJ_ECM,  SOJ 
type  ACTION_TYPE' 
GRP1_GRAPH2, 
GRP1_GRAPH7, 
GRP2_GRAPH5, 
GRP4_GRAPH2, 
GRP4  GRAPH7) 


IND  is  (SUBMENU,  DATAJTEM,  ACTION); 

IND  is  (NONE,  TEXT,  FLOATING_PT,  YES_NO,  INT_GUIDANCE, 
MANEUVER,  MANEUVER_START,  AIRCRAFTJCIND,  LAUNCHER, 
ECM); 

is  (L0AD_DATA,  SAVE_DATA,  START_RUN,  GRP1_GRAPH1, 
GRP1_GRAPH3,  GRP1_GRAPH4,  GRP1_GRAPH5,  GRP1_GRAPH6, 
GRP2_GRAPH1,  GRP2_GRAPH2,  GRP2_GRAPH3,  GRP2_GRAPH4, 
GRP3_GRAPH1,  GRP3_GRAPH2,  GRP3_GRAPH3,  GRP4_GRAPH1, 
GRP4_GRAPH3,  GRP4_GRAPH4,  GRP4_GRAPH5,  GRP4_GRAPH6, 


type  MENU_TYPE; 

type  MENU_POINTER  is  access  MENU_TYPE; 

type  MENU_ITEM_TYPE(ITEM_KIND  :  MENU_ITEM_KIND; 

DATA_TYPE  :  DATA  ITEMJCIND); 
type  MENU_ITEM_PO INTER  is  access  MENU_ITEM_TYPE; 

type  MENU_TYPE  is 
record 

TITLE  :  stringd.. STRING_SIZE); 

FIRST   ITEM   :.MENU   ITEM  POINTER; 

ROWS_BETWEEN_ITEMS  :  positive;   --   1  =  no  gap,   2  =  1   blank  line,   etc. 
end  record; 

type  MENU  ITEM_TYPE(ITEM_KIND   :   MENUJTEMJCIND;  DATA_TYPE   : 

DATAJTEM_KIND)    is 
record 

TITLE   :   string(1..MENU_TEXT  SIZE); 

NEXT_ITEM  :  MENU_ITEM_POINTER; 

case  ITEMJCIND  is 
when  SUBMENU  => 

NEXT_MENU  :  MENU_POINTER; 
when  DATA  ITEM  => 

PROMPT  :  stringd.. MENU_TEXT_SIZE); 
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case  DATA_TYPE  is 
when  NONE  => 

null; 
when  TEXT  => 

TEXTJMLUE   :   stringd . .MENU_TEXT_SIZE); 
when  FLOATING_PT  => 

REAL_VALUE    :    REAL; 

MAX_VALUE    :   REAL; 

MIN_VALUE    :   REAL; 
when  YES_NO  => 

YES_NO_VALUE    :   YES  NO_TYPE; 
when  INT  GUIDANCE  => 

INT_GUIDANCE_VALUE    :    INT_GUIDANCE_TYPE; 
when  TGT_IR_SIZE~=> 

TGT_IR  SIZEJ/ALUE    :    TGT_IR_SIZE_TYPE; 
when  MANEUVER  => 

MANEUVERJ/ALUE    :   MANEUVER_TYPE; 
when  MANEUVER_START  => 

MANEUVER_START_VALUE    :   MANEUVER_START_TYPE; 
when  AIRCRAFTJCIND  => 

AIRCRAFT_KIND_VALUE    :   AIRCRAFT_TYPE; 
when  LAUNCHER  =>  " 

LAUNCHERJ/ALUE    :    LAUNCHER_TYPE; 
when  SSJ_ECM~=> 

SSJ_ECM_VALUE  :  SSJ_ECM_TYPE; 
when  SOJ_ECM  => 

SOJ_ECM_VALUE  :  SOJ_ECM_TYPE; 
end  case; 
when  ACTION  => 

ACTIONJCIND  :  ACTION_TYPE; 
end  case; 
end  record; 


MAIN_MENU,  FILE  MENU,  LAUNCHER_MENU,  TGT_MENU,  GRAPH_MENU  :  MENU_POINTER; 
GRAPH_GRP1  MENU7  GRAPH_GRP2  MENU,  GRAPH_GRP3_MENU,  GRAPH_GRP4_MENU, 
TGT1_MENU,~TGT2_MENU,  S0J1_MENU,  S0J2_MENU  :  MENU_POINTER; 

type  MENU_ITEM_ARRAY  is  array  (positive  range  <>)  of  MENU_ITEM_POINTER; 

MAIN_MENU_ITEMS  :  MENU_ITEM_ARRAY(1 . .5); 
FILE_MENU_ITEMS  :  MENU  ITEM  ARRAY(1..7); 
LAUNCHER_MENU_ITEMS  :  MENUJTEM_ARRAY(1 .  .6); 
TGT  MENU  ITEMS  :  MENU  ITEM  ARRAY(1..7); 
TGTT_MENU_ITEMS  :  MENU_ITEM_ARRAY(1 . .15); 
TGT2_MENU_ITEMS  :  MENU_ITEM~ARRAY(1 . .7); 
S0J1_MENU_ITEMS  :  MENU  ITEM  ARRAY(1 . .13); 
S0J2_MENU_ITEMS  :  MENUJTEM~ARRAY(1 .  .13); 
GRAPH_MENU_ITEMS  :  MENU_ITEM_ARRAY(1 . .4); 
GRAPH_GRP1_MENU_ITEMS  :  MENU_ITEM_ARRAY(1 . .8); 
GRAPH_GRP2_MENU_ITEMS  :   MENU  ITEM  ARRAY (1..5); 
GRAPH_GRP3_MENU_ITEMS  :  MENUJTEM~ARRAY(1 .  .3); 
GRAPH_GRP4_MENU_ITEMS  :  MENU  ITEM_ARRAY(1 . .7); 


procedure  SHOW_TITLE_SCREEN  is  separate; 


procedure  GET_TEXT (PROMPT  STRING  :  in  string;  TEXT_STRING  :  in  out  string)ii 

TEMP_STRING  :  string(TEXT  STRING' range) ; 

INPUT_VALID  :  boolean  :=  false; 
begin 

for  I  in  TEMP_STRING'range  loop 
TEMP_STRING(I)  :=  '  '; 

end  loop; 

SYSTEM_SPECIFIC.PUT_STRING(22,  10,  PROMPT_STRING); 

SYSTEM_SPECIFIC.MOVE_CURSOR(22,DATA_COLUMN); 
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SYSTEM_SPECIFIC.TURN_CURSOR  ON; 
SYSTEM_SPECIFIC.INPUT_STRING(TEMP_STRING); 
SYSTEM_SPECIFIC.TURN  CURSOR_OFF; 
SYSTEM_SPECIFIC.PUT_STRING(22,  10,  BLANK_STRING); 
for  I  Tn  TEMP_STRING'range  loop 

if  TEMP_STRING(I)  /=  ■  '  then 
INPUT_VALID  :=  true; 

end  if; 
end  loop; 
if  INPUT_VALID  then 

TEXT_STRING  :=  TEMP_STRING; 
end  if; 
end  GET_TEXT; 


procedure  GET_REAL(PROMPT_STRING  :  in  string;  NUMBER  :  in  out  REAL)  is 

TEMP_NUMBER  :  REAL; 

EXPONENT  :  REAL; 

CURRENT   :  positive; 

SIGN  :  integer; 
begin 

REAL_IO.Put<TEMP_STRING,NUMBER/AFT=>10,EXP=>0); 

GET_TEXT(PROMPT_STRING,  TEMP_STRING); 

TEMP_NUMBER  :=  0.0; 

CURRENT  :=  TEMP_STRING'f irst; 

SIGN  :=  1; 

for  I  in  TEMP_STRING'range  loop  --  Skip  tabs  and  spaces 

if  TEMP_STRING(I)  /=  '  '  and  TEMP_STRING(I)  /=  Ascii.HT  then 

exit; 
end  if; 
CURRENT  :=  CURRENT  +  1; 

end  loop; 

if  TEMP_STR I NG( CURRENT)  =  '+'  then 

CURRENT  :=  CURRENT  ♦  1; 
end  if; 

if  TEMP_STRING(CURRENT)  =  '-'  then 

SIGN  :=  -1; 

CURRENT  :=  CURRENT  ♦  1; 
end  if; 

while  TEMP_STRING(CURRENT)  >=  '0'  and  TEMP_STR I NG( CURRENT)  <=  '9'  loop 

TEMP_NUMBER  :=  TEMP  NUMBER  *  10.0; 

TEMP_NUMBER  :=  TEMP_NUMBER  +  REAL( 

character'pos(TEMP_STRING(CURRENT))  -  character' pos( '0' )); 

CURRENT  :=  CURRENT  ♦  1; 
end  loop; 

if  TEMP_STR I NG( CURRENT)  =  '.'  then 
CURRENT  :=  CURRENT  +  1; 
EXPONENT  :=  0.1; 

while  TEMP_STRING(CURRENT)  >=  '0'  and  TEMP_STRING(CURRENT)  <=  '9' 
loop 

TEMP_NUMBER  :=  TEMP_NUMBER  +  REAL( 

character' pos(TEMP_STR I NG(CURRENT))  - 
character'pos('O'))  *  EXPONENT; 
EXPONENT  :=  EXPONENT  /  10.0; 
CURRENT  :=  CURRENT  +  1; 
end  loop; 
end  if; 

NUMBER  :=  TEMP_NUMBER  *  REAL(SIGN); 

except  i  on 

when  others  => 
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return; 
end  GET_REAL; 


function  SAVE_OATA_FILE 
return  boolean  is 

DATA_FILE  :  Text_io.Fi le_type; 

procedure  OUTPUT_MENU(MENU  :  in  MENU_POINTER)  is 
ITEM  :  MENU_ITEM_POINTER  :=  MENU.FIRSTJTEM; 
begin 

while  ITEM  /=  null  loop 

if  ITEM.ITEMJCIND  =  DATAJTEM  then 
case  ITEM. DATA  TYPE  is 
when  NONE  => 

null; 
when  TEXT  => 

Text_io.Put_line(DATA_FILE,  ITEM.TEXT_VALUE); 
when  FLOATING  PT  => 

REAL_IO.Put(DATA_FILE,  ITEM.REAL_VALUE); 
Text_io.New_line(DATA_FILE); 
when  YES_NO  => 

Text_io.Put_line(DATA_FILE,  YES_NO_TYPE' image( 
ITEM. YES  NO_VALUE)); 
when  INT_GUIDANCE  =>" 

Text  io.Put_line(DATA_FILE,  INT_GUIDANCE_TYPE' image( 
ITEM.INT_GUIDANCE_VALUE)); 
when  TGT_IR_SIZE  => 

Text_io.Put_line(DATA_FILE,  TGT_IR_SIZE_TYPE' image( 
I TEM . TGT_I R_S I ZE_VALUE ) ) ; 
when  MANEUVER  => 

Text_io.Put_line(DATA_FILE,  MANEUVER_TYPE' image( 
ITEM. MANEUVER_VALUE ) ) ; 
when  MANEUVER_START  => 

Text_io.Put_line(DATA_FILE, 
MANEUVER_START_TYPE ' image( 

ITEM. MANEUVER_START_VALUE ) ) ; 
when  AIRCRAFTJCIND  => 

Text_io.Put_line(DATA_FILE, 
AIRCRAFT_TYPE'image( 

ITEM.AIRCRAFT_KIND_VALUE)); 
when  LAUNCHER  => 

Text_io.Put  line(DATA_FILE, 
LAUNCHER_TYPE'image( 

I TEM. LAUNCHER  VALUE)); 
when  SSJ_ECM  => 

Text~io.Put_line(DATA_FILEf 

SS J_ECM_T YPE ' i  mage( ITEM. SS J_ECM_VALUE ) ) ; 
when  SOJ_ECM  => 

Text_io.Put_line(DATA_FILE, 

SOJ_ECM_TYPE ' image( I TEM . SOJ_ECM_VALUE ) ); 
end  case; 
elsif  ITEM.ITEM_KIND  =  SUBMENU  then 

OUTPUT_MENU( ITEM. NEXT_MENU ) ; 
end  if; 

ITEM  :=  ITEM.NEXT_ITEM; 
end  loop; 
end  OUTPUT_MENU; 

begin 

Text_io.Create(DATA_FILE,  Text  io.Out_file, 

FILE_MENU_ITEMS(1).TEXT_VALUE); 
Text_io.Put_line(DATA_FILE,  MISSILE. ID_STRING); 

OUTPUT_MENU(MAIN_MENU); 
Text_io.Close(DATA_FILE); 
return  true; 
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except  i  on 

when  others  => 

SYSTEM_SPECIFIC.PUT_STRING(22,  10,  "ERROR  during  file  save"); 

MESSAGE_D I  SPLAYED  :=  true; 

if  Text_io.Is_open(DATA_FILE)  then 

Text_io.Close(DATA_FILE); 
end  if; 
return  false; 
end  SAVE_DATA_FILE; 


function  LOAD_DATA_FILE 
return  boolean  is 

DATA_FILE  :  Text_io.Fi le_type; 
ID_MISMATCH  :  exception; 

procedure  INPUT_MENU(MENU  :  in  MENU_POINTER)  is 
ITEM  :  MENU_ITEM_POINTER  :=  MENU.FIRSTJTEM; 
TEMP_LINE  :  stringO . .MENU_TEXT_SIZE);~ 
LAST  :  natural; 
begin 

while  ITEM  /=  null  loop 

if  ITEM.ITEMJCIND  =  DATAJTEM  then 
case  ITEM.DATA_TYPE  is 
when  NONE  => 

null; 
when  TEXT  => 

Text_io.Get_line(DATA_FILE,  ITEM.TEXT_VALUE,  LAST); 
Text_io.Skip_line(DATA_FILE); 
when  FLOATING_PT  => 

REAL_IO.Get(DATA_FILE,  ITEM.REAL_VALUE); 
Text~io.Skip_line(DATA_FILE); 
when  YES_NO  => 

Text_io.Get_line(DATA  FILE,  TEMPJ.INE,  LAST); 
ITEM.YES_NO_VALUE  :=  " 
YES_NO_TYPE'value(TEMP_LINE(1..LAST)); 
when  INT_GUIDANCE  => 

Text_io.Get_line(DATA_FILE,  TEMP_LINE,  LAST); 
ITEM.INT_GUIDANCE_VALUE  := 
INT  GUIDANCE  TYPE' value(TEMP_LINE( 1 . .LAST)); 
when  TGT_IR_SIZE~=> 

Text_io.Get_line(DATA_FILE,  TEMP_LINE,  LAST); 
ITEM.TGT_IR_SIZE_VALUE  := 

TGT_I R_STZE_T YPE ' va I ue( TEMP_L I NE ( 1 . . LAST ) ) ; 
when  MANEUVER  => 

Text_io.Get_line(DATA_FILE,  TEMPJ.INE,  LAST); 
ITEM.MANEUVER_VALUE  := 

MANEUVER_TYPE'value(TEMP_LINE(1..LAST)); 
when  MANEUVER_START  => 

Text_io.Get_line(DATA_FILE,  TEMP_LINE,  LAST); 
ITEM.MANEUVER_START_VALUE  := 
MANEUVER  START  TYPE' value(TEMP_LINE(1 . .LAST)); 
when  AIRCRAFT_KIND~=> 

Text  io.Get_line(DATA_FILE,  TEMPLINE,  LAST); 

itemTaircraft_kind_value  := 

AIRCRAFT  TYPE~value(TEMP_LINE(1..LAST)); 
when  LAUNCHER  => 

Text_io.Get_line(DATA_FILE,  TEMP_LINE,  LAST); 

ITEM.LAUNCHER_VALUE  := 

LAUNCHER_TYPE'value(TEMP_LINE(1..LAST)); 
when  SSJ_ECM  => 

Text  io.Get  line(DATA_FILE,  TEMP_LINE,  LAST); 

ITEM?SSJ_ECM  VALUE  :=~ 

SSJ  ECM  TYPE~value(TEMP_LINE(1..LAST)); 
when  SOJ  ECM  => 

Text~io.Get  line(DATA_FILE,  TEMPJ.INE,  LAST); 

ITEM.SOJ_ECM_VALUE  := 

SOJ_ECM_TYPE'value(TEMP_LINE(1..LAST)); 
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end  case; 
els  if   ITEM.ITEMJOND  =  SUBMENU  then 

I NPUT_MENU( I TEM . NEXT_MENU ) ; 
end  if; 

ITEM   :=   ITEM.NEXTJTEM; 
end  loop; 
end  INPUT_MENU; 

begin 

Text_io.Open(DATA_FILE,   Text_io.In_f i le,    FILE_MENU_ITEMS(1).TEXT_VALUE); 

Text  io.Get(DATA  FILE,  TEMP_STRING); 
Text_io.Skip_line(DATA_FILE); 

for  I  in  MISSILE. ID_STRING' range  loop 

if  MISSILE. ID_STRING(I)  /=  TEMP  STRING(I)  then 
raise  ID_MISMATCH; 

end  if; 
end  loop; 

INPUT_MENU(MAIN_MENU>; 

Text_io.Close(DATA_FILE); 
return  true; 

except  i  on 

when  others  => 

SYSTEM_SPECIFIC.PUT_STRING(22,  10,  "ERROR  during  file  load"); 

MESSAGE_D I  SPLAYED  :=  true; 

if  Text_io.Is_open(DATA_FILE)  then 

Text_io.Close(DATA_FILE); 
end  if; 
return  false; 
end  LOAD_DATA_FILE; 


procedure  START_RUN  is 

SETUP_VALUES  :  SETUP_VALUES_TYPE; 

TEMP_REAL  :  REAL;  --  Needed  for  Meridian  V4.0  bug 
begin 

File  operations  parameters 

SETUP_VALUES.OUTPUT_FILE  :=  FILE_MENU_ITEMS(4).TEXT_VALUE; 
SETUP  VALUES.LOG  DATA  :=  FILE  MENU  ITEMS(5).YES  NOJ/ALUE; 
SETUP_VALUES.FRAME_TIME  :=  FiIe_MENU_ITEMS(6).REAL_VALUE; 
SETUP_VALUES . LOG_I NTERVAL  : =  I NTEGER ( F I LE_MENU_I TEMS( 7) . REAL_VALUE ) ; 

Launch  aircraft  parameters: 
SETUP_VALUES.INT_TYPE_IC:=LAUNCHER_MENU_ITEMS(1).AIRCRAFT_KIND_VALUE; 
SETUP_VALUES. LAUNCH  TYPE  :=  LAUNCHER_MENU_ITEMS(2).LAUNCHER_VALUE; 
TEMP_REAL  :=  LAUNCHER_MENU_ITEMS(3).REAL_VALUE; 
SETUP_VALUES.INT_ALTITUDE_IC  :=  TEMPREAL; 

SETUP  VALUES. I NT_MACH_IC  :=  LAUNCHER_MENU_ITEMS(4).REAL_VALUE; 
SETUP~VALUES . I NT_LEAD_ANGLE_I C  : =  LAUNCHER_MENU_I TEMS( 5 ) . REALJ/ALUE ; 
SETUP~VALUES.INT_GUIDANCE  :=  LAUNCHER_MENU_ITEMS(6). INT_GUIDANCE_VALUE; 

Target  parameters: 

SETUP_VALUES . TGT_TUO_I C : =TGT_MENU_I TEMS( 2 ) . YES_NO_VALUE ; 
SETUP_VALUES . SO J_ONE_I C : =TGT_MENU  I TEMS(4 ) . YES_NO_VALUE ; 
SETUP_VALUES.SOJ_TWO_IC:=TGT_MENUJTEMS(6).YES_NO_VALUE; 
TEMP_REAL  :=  TGT1_MENU_ITEMs7l ).REAL_VALUE; 
SETUP_VALUES.TGT_ALTITUDE  IC(1)  :=  1000.0*TEMP_REAL; 
TEMP  REAL  :=  TGT2_MENU  ITEMS(1).REAL_VALUE; 
SETUP_VALUES.TGT_ALTITUDE_IC(2)  :=  1000.0*TEMP_REAL; 
TEMP_REAL  :=  SOJ1_MENU_ITEMS( D.REAL  VALUE; 
SETUP_VALUES.TGT_ALTITUDE_IC(3)  :=  1000.0*TEMP_REAL; 
TEMP  REAL  :=  SOJ2  MENU  ITEMS(1).REAL_VALUE; 
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=  TGT2_MENU_ITEMS(2).REAL_VALUE; 
=  FEET_PER_NMI* 

=  FEET  PER  NMI* 


SETUP_VALUES.TGT_ALTITUDE_IC(4)  :=  1000.0*TEMP_REAL; 
SETUP_VALUES.S0J_ANGLE_IC(1):=S0J1_MENU_ITEMS(3).REAL_VALUE; 
SETUP_VALUES.SOJ_ANGLE_IC(2):=SOJ2_MENU_ITEMS(3).REAL_VALUE; 
SETUP_VALUES.TGT_MACH_IC  :=  TGT1_MENU_ITEMS(2).REAL_VALUE; 
SETUP_VALUES.TGT  ASPECT_IC  :=  TGT1_MENU_ITEMS(3).REAL_VALUE; 
SETUP_VALUES.TGT~RANGE_IC(1)  :=  FEET_PER_NMI* 
TGT1_MENU_ITEMS(4).REAL_VALUE; 
SETUP_VALUES.TGT_RANGE_IC(2) 
SETUP_VALUES . TGT_RANGE_I C(3) 
S0J1_MENU_ITEMS(2).REAL_VALUE; 
SETUP_VALUES.TGT_RANGE_IC(4) 
SOJ2_MENU_ITEMS(2).REAL_VALUE; 

SETUP_VALUES.TGT2_ANGLE_IC:=TGT2_MENU_ITEMS(3).REAL_VALUE; 
TEMP_REAL:=TGT1_MENU_ITEMS(11).REAL_VALUE; 
SETUP_VALUES . TGT_BU I LDUP_T I ME_I C  : =TEMP_REAL ; 

SETUP_VALUES.TGT_RCS_IC(1)  :=  10.76*TGT1_MENU_ITEMS(5).REAL_VALUE; 
SETUP~VALUES.TGT_RCS_IC(2)  :=  10.76*TGT2_MENU_ITEMS(4).REAL_VALUE; 
SETUP_VALUES.TGT  ECM_TECH_IC(1 ):=TGT1_MENU_ITEMS(14).SSJ_ECM_VALUE; 
SETUP  J/ALUES. TGT~ECM_TECH_IC(2) :=TGT2_MENU_ITEMS<6). SSJ_ECM_VALUE; 
SETUP  J/ALUES. S0J~ECM_TECH_IC(1):=S0J1_MENU_ITEMS(4).S0J_ECM_VALUE; 
SETUP  VALUES. SO J_E CM  TECH_IC(2):=SOJ2_MENU_ITEMS(4).SOJ_ECM_VALUE; 
SETUP~VALUES.TGT_ECM~POWER_IC(1):=TGT1_MENU_ITEMS(15).REAL_VALUE; 
SETUP_VALUES.TGT_ECM_POWER_IC(2):=TGT2_MENU_ITEMS(7).REAL_VALUE; 
SETUP_VALUES.TGT_ECM_P0WER_IC(3):=S0J1_MENU_ITEMS(5).REAL_VALUE; 
SETUP~VALUES.TGT_ECM_POWERJC(4):=SOJ2_MENU_ITEMS(5).REAL_VALUE; 
SETUP_VALUES.TGT1_IR_SIZE  :=  TGT1_MENU_ITEMS(6).TGT_IR_SI2E_VALUE; 
SETUP_VALUES.TGT2_IR_SIZE  :=  TGT2_MENU_ITEMS(5).TGT_IR_SIZE_VALUE; 
SETUP_VALUES.MANEUVER_KIND  :=  TGT1_MENU_ITEMS(7).MANEUVER_VALUE; 
SETUP_VALUES.TGT_TURN~G_IC  :=  TGT1_MENU_ITEMS(8).REAL_VALUE; 
SETUP_VALUES . TURN_ON_PARAMETER  : = 
TGT1_MENU_ITEMS(9).MAMEUVER_START_VALUE; 

SETUP_VALUES.TGT_TURNON_VALUE_IC  :=  TGT1_MENU_ITEMS(10).REAL_VALUE; 
SETUP_VALUES.TGT~TURN_ANG_IC  :=  TGT1_MEMU_ITEMS(12).REAL_VALUE; 
SETUP_VALUES.TGT~WEAVE_PER_IC  :=  TGT1_MENU_ITEMS(13).REAL_VALUE; 
APPLICATION.SIMULATION_MAIN(SETUP_VALUES); 
end  START  RUN; 


function  DISPLAY_MENU(MENU  :  MENU_POINTER;  ITEM_NUM  :  integer) 
return  integer  is 

ITEM  :  MENU_ITEM_POINTER; 
ROW  :  integer; 
NUMJTEMS  :  integer; 
begin 

SYSTEM  SPECIFIC.CLEAR_SCREEN; 
SYSTEM~SPECIFIC.DRAW_BOX; 

SYSTEM_SPECIFIC.PUT_STRING(  2,  10,  MENU. TITLE); 

if  MENU  =  MAIN  MENU  then 

SYSTEM_SPECIFIC.PUT_STRING(22,  5,  "Use  the  up  and  down  "  & 
"arrow  keys  to  move  the  cursor  and  then  press  ENTER"); 
end  if; 

ITEM  :=  MENU.FIRSTJTEM; 
ROW  :=  MENU_START  ROW; 
NUM  ITEMS  :=  0; 
while  ITEM  /=  null  loop 

if  NUM  ITEMS  =  ITEM_NUM  then 

SYSTEM_SPECIFIC.REVERSE_VIDEO_ON; 

end  if; 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  10,  ITEM. TITLE); 
if  NUM_ITEMS  =  ITEM  NUM  then 

system_specificTreverse_video_off; 

end  if; 
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if   ITEM.ITEM_KIND  =  DATA  ITEM  then 
case  ITEM.DATAJYPE  Is 
when  NONE  => 

null; 
when  TEXT  => 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 
ITEM.TEXTJ/ALUE); 
when  FLOATING_PT  => 

SYSTEM  SPECIF  I C.PUT_REAL(  ROW,  DATA_COLUMN, 
ITEM. REAL  VALUE); 
when  YES_NO  => 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 
YES_NO_T YPE ' i  mage( I TEM . YES_NO_VALUE ) ) ; 
when  INT_GUIDANCE  => 

SYSTEM  SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 

INT_GUIDANCE_TYPE'image(ITEM.INT_GUIDANCE  VALUE)); 
when  TGT  IR~SIZE  => 

SYSTEM  SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 

TGT  IR_S I ZE_T YPE' imaged TEM. TGT_IR_SIZE_VALUE) ); 
when  MANEUVER  => 

SYSTEM  SPECIF  I C.PUT_STRING(  ROW,  DATA_COLUMN, 
MANEUVER  JYPE ' i  mage( ITEM. MANEUVER  J/ALUE ) ) ; 
when  MANEUVER_START  => 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 
MANEUVER_START_TYPE' image( 

ITEM. MANEUVER_START_VALUE ) ) ; 
when  AIRCRAFTJCIND  => 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 
AIRCRAFT_TYPE'image< 

I TEM. AIRCRAFTJCIND  J/ALUE)); 
when  LAUNCHER  => 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 
LAUNCHER_TYPE'image< 

I TEM . LAUNCHER_VALUE ) ) ; 
when  SSJ_ECM  => 

SYSTEM  SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 
SSJ  ECM_TYPE'image(ITEM.SSJ_ECM  VALUE)); 
when  SOJJECM  => 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  DATA_COLUMN, 
SOJ_ECM_TYPE ' i  mage( I TEM . SOJ_ECM_VALUE ) ) ; 
end  case; 
end  if; 

ROW  :=  ROW  +  MENU. ROWS  BETWEEN  ITEMS; 
ITEM  :=  I TEM. NEXT  ITEM? 
NUMJTEMS  :=  NUM_ITEMS  +  1; 
end  loop; 

if  MENU  =  MAIN_MENU  then 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  10,  QUIT_STRING); 
else 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  10,  RETURN_STRING); 
end  if; 

return  NUM  ITEMS; 
end  DISPLAY_MENU; 


procedure  MANAGE_MENU(MENU  :  MENU_PO INTER)  is 

ITEM  :  MENU_ITEM_POINTER; 

ROW  :  integer; 

ITEM_NUM   :   integer  :=  0; 

NUMJTEMS   :    integer; 

COMMAND    :   SYSTEM_SPECIFIC.MENU_COMMAND; 

STATUS_OK   :   boolean; 
begin 

NUMJTEMS    :=  DISPLAY_MENU(MENU,    ITEM_NUM); 

ROW   :=  MENUJ>TART_ROW; 
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ITEM   :=  MENU.FIRSTJTEM; 
loop 

COMMAND    :=  SYSTEM_SPECIFIC.GET_MENU_COMMAND; 

if  MESSAGE_D I  SPLAYED  then 

SYSTEM  SPECIFIC. PUT_STRING(22,    10,    BLANK_STRING); 

MESSAGE_D I  SPLAYED   :=  false; 
end  if; 

case  COMMAND   is 

when  SYSTEM_SPECIFIC.UP_ARROW  => 

if    ITEM_NUM  =  NUM_ITEMS   then 

if  MENU  =  MAIN_MENU  then 

SYSTEM_SPECIFIC.PUT_STRING(   ROW,    10,    QUIT_STRING); 
else 

SYSTEM_SPECIFIC.PUT_STRING(   ROW,    10,    RETURN_STRING); 
end  if; 

ROW   :=  ROW   -   MENU. ROWS  JJETWEENJTEMS; 
ITEM_NUM   :=   ITEM_NUM   -    1; 
ITEM   :=  MENU.FIRSTJTEM; 
for   I    in  O..ITEM_NUM-1    loop 

ITEM   :=   ITEM.NEXTJTEM; 
end   loop; 

SYSTEM  J5PECIF I C. REVERSE  J/IDEO_ON; 
SYSTEM_SPECIFIC.PUT_STRING(   ROW,    10,    ITEM. TITLE); 
SYSTEM_SPECIFIC.REVE 
elsif   ITEM_NUM  =  0  then 

SYSTEM_SPECIFIC.PUT_STRING(   ROW,    10,    ITEM. TITLE); 

ROW   :=  MENU_START_ROW  +  NUMJTEMS  * 

MENU.ROWS_BETWEENJTEMS; 

ITEM_NUM  7=  NUMJTEMS; 

SYSTEM  JiPEC I F I C . REVERSE _VI DEO_ON ; 

if  MENU  =  MAIN_MENU  then 

SYSTEMJ>PECIFIC.PUTJ5TRING(   ROW,    10,   QUITJJTRING); 
else 

SYSTEM J>PECIFIC.PUTJ5TRING(   ROW,    10,    RETURN JJTRING); 
end  if; 

SYSTEMJiPECIFIC. REVERSE _V IDEO_OFF; 
else 

SYSTEM J5PECIF I C. PUT   STRING(   ROW,    10,    ITEM. TITLE); 
ROW   :=  ROW  -   MENU.ROWS_BETWEENJTEMS; 
ITEM_NUM   :=   ITEM_NUM   -    1; 
ITEM   :=  MENU.FIRSTJTEM; 
for  I    in  0..ITEM_NUM-1    loop 

ITEM   :=   ITEM.NEXTJTEM; 
end  loop; 

SYSTEM  SPEC I F I C . REVERSE  VI DEO_ON ; 
SYSTEM~SPECIFIC.PUTJ5TRING(   ROW,    10,    ITEM. TITLE); 
SYS1 
end  if; 

when  SYSTEM J5PECIF I C. DOWN JVRROW  => 
if   ITEM_NUM  <  NUMJTEMS- 1   then 

SYSTEM  SPECIFIC. PUT  STRING(   ROW,    10,    ITEM. TITLE); 

ROW   :=  ROW  +  MENU.ROWS_BETWEENJTEMS; 

ITEM_NUM   :=   ITEM_NUM  +~1; 

ITEM   :=   ITEM. NEXT    ITEM; 

SYSTEM  SPEC I F I C. REVERSE J/IDEO_ON; 

SYSTEM~SPECIFIC.PUTJ5TRING(   ROW,    10,    ITEM. TITLE); 

SYSTEM~SPECIF I C. REVERSE  J/IDEO_OFF; 
elsif   ITEMJJUM  =  NUM  ITEMS- 1   then 

SYSTEM J5PECIFIC.PUTJ5TRING(   ROW,    10,    ITEM. TITLE); 

ROW   :=~ROW  +  MENU.ROWS_BETWEENJTEMS; 

ITEM_NUM   :=   ITEM_NUM  ♦  1; 

SYSTEM  SPECIFIC.REVERSEJ/IDEO_ON; 

if  MENU  =  MAIN  MENU  then 

SYSTEMJiPECIFIC.PUT_STRING(   ROW,    10,   QUITJ5TRING); 

else 

SYSTEM J>PECIFIC.PUTJ>TR I NG(   ROW,    10,    RETURNJ5TRING); 
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end  if; 

SYSTEM  SPECIFIC.REVERSE_VIDEO_OFF; 
else  --  ITEM  NUM  =  NUM_ITEMS 
if  MENU  =  MAIN_MENU  then 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  10,  QUIT_STRING); 
else 

SYSTEM_SPECIFIC.PUT_STRING(  ROW,  10,  RETURN_STRING); 
end  if; 

ROW  :=  MENU_START_ROW; 
ITEM  :=  MENU.FIRST_ITEM; 
ITEM_NUM  :=  0; 

SYSTEM  SPECIFIC.REVERSE_VIDEO_ON; 
SYSTEM_SPECIFIC.PUT_STRING(  ROW,  10,  ITEM. TITLE); 
SYSTEM_SPECIFIC.REVERSE_VI0EO_OFF; 
end  if; 
when  SYSTEM_SPECIFIC.ENTER_KEY  => 
if  ITEM_NUM  =  NUM_ITEMS  then 
if  MENU  =  MAIN_MENU  then 

SYSTEM_SPECIFIC.QUIT_PROGRAM; 
else 

return; 
end  if; 
else 

case  ITEM.ITEM_KIND  is 
when  SUBMENU  => 

MANAGE_MENU( ITEM. NEXT_MENU ) ; 
NUM_ITEMS  :=  DISPLAY_MENU(MENU,  ITEM_NUM); 
when  DATA_ITEM  => 

case  ITEM.DATA_TYPE  is 
when  NONE  => 

null; 
when  TEXT  => 

GET_TEXT( ITEM. PROMPT,  ITEM.TEXTJ/ALUE); 
SYSTEM_SPECIFIC.PUT_STRING(ROW, 
DATA_COLUMN,  ITEM.TEXT_VALUE); 
when  FLOATING_PT  => 

GET_REAL( ITEM. PROMPT,  ITEM.REAL_VALUE); 
SYSTEM_SPECIFIC.PUT_REAL(  ROW, 

DATA_COLUMN,  ITEM.REAL_VALUE); 
when  YES_NO  => 

if  ITEM.YES_NO_VALUE  /=  YES_NO_TYPE' last 
then 

ITEM.YES_NO_VALUE  := 
YES  NO  TYPE'succ( 

~ITEM.YES_NO_VALUE); 
else 

ITEM.YES_NO  VALUE  := 
YES_NO_TYPE~first; 
end  if; 

SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN,  BLANK_STRING( 
1.. YES_NO_TYPE' width ) ); 
SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN,  YES_NO_TYPE ' image( 
TtEM.YES_NO_VALUE)); 
when  INT_GUIDANCE  => 

if  ITEM.INT_GUIDANCE_VALUE  /= 
INT_GUIDANCE_TYPE'last  then 
~ITEM.INT_GUIDANCE_VALUE  := 
INT  GUIDANCE_TYPE'succ( 

~ITEM.INT_GUIDANCE_VALUE); 
else 

ITEM.INT_GUIDANCE_VALUE  := 
INT_GUIDANCE_TYPE'first; 
end  if; 

SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA  COLUMN,  BLANK  STRING( 

T..INT_GUIDANCE_TYPE' width)); 
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SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN, 
I NT_GU I DANCE_T YPE ' i  mage( 

ITEM.I NT_GU I DANCE  J/ALUE ) ) ; 
when  TGT_IR_SIZE  => 

if  ITEM.TGT_IR_SIZE_VALUE  /= 
TGT_IR_SIZE_TYPE'last  then 
ITEM.TGT_IR_SIZE_VALUE  := 
TGT_I R_SI ZE_TYPE ' succ( 

I TEM . TGT_I R_S I ZE  J/ALUE ) ; 
else 

I TEM. TGT_IR_S I ZEJ/ALUE  := 
TGT_IR_SIZE_TYPE' first ; 
end  if; 

SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN,  BLANK_STRING( 

1..TGT  IR_SIZE_TYPE'width)); 
SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN, 
TGT_IR  SIZE_TYPE'image( 

ITEM.TGT_IR_SIZE_VALUE)); 
when  MANEUVER  => 

if    ITEM.MANEUVERJ/ALUE  /= 
MANEUVER_TYPE'last   then 
ITEM.MANEUVERJ/ALUE    := 
MANEUVER  JYPE'succ( 

ITEM.MANEUVERJ/ALUE); 
else 

ITEM.MANEUVERJ/ALUE    := 
MANEUVER J YPE' first ; 
end  if; 

SYSTEMJ>PECIFIC.PUTJ>TRING(   ROW, 
DATA_COLUMN,    BLANKJ>TRING< 
1..  MANEUVERJYPE'  width)); 
SYSTEM J5PECIFIC.PUTJ>TRING(   ROW, 

DATA_COLUMN,   MANEUVERJYPE1  image( 
ITEM. MANEUVER  J/ALUE ) ) ; 
when  MANEUVER J>TART   => 

if    ITEM. MANEUVER J^TARTJ/ALUE  /= 
MANEUVER J^TART_TYPE' last   then 
ITEM.MANEUVER_STARTJ/ALUE    := 
MANEUVER J>TART   TYPE'succ( 

I TEM . MANEUVER  J>TART  J/ALUE ) ; 
else 

I TEM. MANEUVER J>TART J/ALUE    :  = 
MANEUVER  J>TART_TYPE' first ; 
end  if; 

SYSTEMJ>PECIFIC.PUTJ>TRING(   ROW, 
DATA  COLUMN,    BLANKJ»TRING( 

T..MANEUVERJ>TART  TYPE'width)); 
SYSTEM  SPECIF  I C.PUTJ>TRING(   ROW, 
DATA_COLUMN, 
MANEUVER  START  JYPE'  image( 

I TEMTMANEUVER  J5TART  J/ALUE ) ) ; 
when  AIRCRAFT  KIND  => 

if  item.aTrcraftjundj/alue  /= 

AIRCRAFTJYPE'last  then 

ITEM. AIRCRAFT JCIND J/ALUE    :  = 

AIRCRAFT_TYPE~succ( 

I TEM. AIRCRAFT  JCIND  J/ALUE); 
else 

ITEM. AIRCRAFT JCINDJ/ALUE    :  = 

AIRCRAFTJYPE'  first; 
end  if; 
SYSTEMJ>PECIFIC.PUTJ>TRING(   ROW, 

DATA_COLUMN,   BLANKJ>TRING( 
1 . .AIRCRAFT_TYPE 'width) ); 
SYSTEMJ>PECIFIC.PUTJ>TRING(   ROW, 

DATA  COLUMN. 
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AIRCRAFT_TYPE'image( 

ITEM. AIRCRAFT  KIND_VALUE)); 
when  LAUNCHER  => 

if  ITEM.LAUNCHER_VALUE  /= 
LAUNCHER_TYPE'last  then 
ITEM.LAUNCHER_VALUE  := 
LAUNCHER_TYPE'succ( 

ITEM.LAUNCHERJ/ALUE); 
else 

ITEM.LAUNCHER_VALUE  := 
LAUNCHER_TYPE ' first ; 
end  if; 

SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN,  BLANK_STRING< 
T.. LAUNCHER  TYPE' width)); 
SYSTEM_SPECIFIC.PUT~STRING(  ROW, 
DATA_COLUMN, 
LAUNCHER_TYPE'image( 

ITEM. LAUNCHER_VALUE ) ) ; 
when  SSJ  ECM  => 

if  ITEM. SSJ  ECM  VALUE  /= 
SSJ_ECM_TYPE'last  then 
ITEM. SSJ  ECMJ/ALUE  := 
SSJ_ECM_TYPE'succ( 

ITEM.SSJ_ECM_VALUE); 
else 

ITEM.SSJ_ECM_VALUE  := 
SS J_ECM_TYPE' first  ; 
end  if; 

SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN,  BLAN(C_STRING( 
1 . .SSJ_ECM_TYPE'width)); 
SYSTEM_SPECIFIC.PUT_STRING(  ROW, 
DATA_COLUMN, 
SSJ_ECM_TYPE'image< 

ITEM.SSJ_ECM_VALUE)); 
when  SOJ  ECM  => 

if  ITEM.SOJ_ECM_VALUE  /= 
SOJ_ECM  TYPE' last  then 
ITEM.SOJ_ECM_VALUE  := 
SOJ_ECM  TYPE'succ< 

ITEM.SOJ_ECM_VALUE); 
else 

ITEM.SOJ_ECM_VALUE  := 
SOJ_ECM_TYPETfirst; 
end  if; 

SYSTEM_SPECIFIC.PUT  STRING(  ROW, 
DATA_COLUMN,  BLiSNK_STRING< 
T..SOJ_ECM_TYPE' width)); 
SYSTEM  SPECIFIC. PUT  STRING(  ROW, 
0ATA_COLUMN, 
SOJ_ECM_TYPE'image( 

I TEM . SOJ_ECM_VALUE ) ) ; 
end  case; 
when  ACTION  => 

case  ITEM.ACTIONJCIND  is 
when  LOAD_DATA  => 

STATUS  OK  :=  LOAD_DATA_FILE; 
if  STATUS  OK  then" 

NUM_ITEMS  :=  DISPLAY_MENU(MENU, 

ITEM_NUM); 
SYSTEM_SPECIFIC.PUT_STRING(22,  10, 

"File  loaded  successfully"); 
MESSAGE_D I  SPLAYED  :=  true; 
end  if; 
when  SAVE_DATA  => 

STATUS  OK  :=  SAVE_DATA_FILE; 
if  STATUS_OK  then 

SYSTEM_SPECIFIC.PUT  STRING(22,  10, 
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"File  saved  successfully"); 
MESSAGE_D I  SPLAYED   :=  true; 
end  if; 
when  START_RUN  => 
START_RUN; 

NUMJTEMS   :=  DISPLAY_MENU(MENU, 
ITEMJUUM); 
when  GRP1_GRAPH1   =>   --   Elev.  View  of  Traj 
PL0T.D0_GRAPH(21); 
NUMJTEMS   :=  DISPLAY_MENU(MENU, 
ITEMJWM); 
when  GRP1_GRAPH2  =>   --   Plan  View  of  Traj 
PLOT.DO_GRAPH(22); 
NUM_ITEMS    :=  DISPLAY_MENU(MENU, 
ITEMJWM); 
when  GRP1_GRAPH3  =>  --  Msl-Tgt  Range  Rate 
PL0T.D0_GRAPH(7); 
NUMJTEMS   :=  DISPLAY_MENU(MENU, 
ITEMJJUM); 
when  GRP1_GRAPH4  =>   --  Msl-Tgt  Range 
PLOT. DO  GRAPH(6); 
NUMJTEMS~:  =  DISPLAY  JIENUCMENU, 
ITEM  NUM); 
when  GRP1_GRAPH5  =>   --   LOS  Angle  Rates 
PLOT. DO  GRAPH(10); 
NUM_ITEMS   :=  DISPLAY  J1ENU(MENUf 
ITEMJWM); 
when  GRP1_GRAPH6  =>   --   Tgt  Heading  Angle 
PLOT.DO_GRAPH(25); 
NUMJTEMS   :=  DISPLAY_MENU(MENU, 
ITEM_NUM); 
when  GRP1_GRAPH7  =>   --   Launch  A/C-Tgt  Range 
PLOT.DO_GRAPH(1); 
NUMJTEMS    :=  DISPLAY  MENU(MENU, 
ITEM_NUM); 
when  GRP2_GRAPH1   =>  --  Ms  I.   Mach 
PL0T.D0_GRAPH(5); 
NUMJTEMS    :=  DISPLAY_MENU(MENU, 
ITEM_NUM); 
when  GRP2  GRAPH2  =>  --  Ms  I.   Velocity 
PLOf.DO_GRAPH(2); 
NUMJTEMS    :=  DISPLAY  MENU(MENU, 
ITEM_NUM); 
when  GRP2J3RAPH3  =>   --  Ms  I.  Alt.   Rate 
PLOT. DO  GRAPH(11); 
NUM   ITEMS"  :=  DISPLAY  MENU(MENU, 
"ITEM  NUM); 
when  GRP2_GRAPH4  =>   --  Ms I.   Pitch  Angle 
PLOT.DOJ5RAPH(4); 
NUMJTEMS    :=  DISPLAY J<ENU(MENU, 
ITEM  NUM); 
when  GRP2_GRAPH5  =>  --  Ms  I.   Yaw  Angle 
PL0T.D0_GRAPH(3); 
NUMJTEMS    :=  DISPLAY JIENU(MENU, 
ITEM_NUM); 
when  GRP3_GRAPH1   =>  --  Msl.   Thrust 
PL0f.D0_GRAPH(16); 
NUM   ITEMS    :=  DISPLAY JIENU(MENUf 
"ITEM  NUM); 
when  GRP3_GRAPH2  =>   --  Msl.    Fuel  Mass 
PL0T.D0_GRAPH(14); 
NUMJTEMS    :=  DISPLAY_MENU(MENU, 
ITEM_NUM); 
when  GRP3_GRAPH3  =>  --  Msl.    Fuel   Rate 
PL0T.D0_GRAPH(17); 
NUMJTEMS   :=  DISPLAY  MENU(MENU, 
ITEM_NUM); 
when  GRP4_GRAPH1   =>  --  Msl.  Ace.  Cmds. 
PLOT.DO_GRAPH(12); 
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NUMJTEMS    :=  DISPLAY  MENIKMENU, 
ITEM  NUM); 
when  GRP4_GRAPH2  =>  --  Ms  I.  Ach.  Ace. 
PLOT. DO  GRAPH<13); 
NUM_ITEMS~:=  DISPLAY_MENU(MENU, 
ITEM_NUM); 
when  GRP4J3RAPH3  =>  --  Ms  I.  Alpha 
PLOT.DO_GRAPH(18); 
NUMJTEMS    :=  DISPLAY_MENU(MENU, 
ITEMJIUM); 
when  GRP4_GRAPH4  =>  --  Msl.  Weight 
PLOT.DO_GRAPH<15); 
NUMJTEMS    :=  DISPLAY_MENU(MENU, 
ITEMJIUM); 
when  GRP4_GRAPH5  =>  --  Msl.   SkF.   Angles 
PL0T.D0_GRAPH(9); 
NUMJTEMS    :=  DISPLAY  JIENU(MENU, 
ITEMJIUM); 
when  GRP4_GRAPH6  =>  --  Msl.   RF  SNR 
PLOT.DO_GRAPH(19); 
NUMJTEMS    :=  DISPLAY_MENU(MENU, 
ITEMJIUM); 
when  GRP4_GRAPH7  =>  --  Msl.  Drag  Coef. 
PLOT.DO_GRAPH(20); 
NUMJTEMS   :=  DISPLAY_MENU(MENU, 
ITEM_NUM); 
end  case; 
end  case; 
end  if; 
when  others  => 
null; 
end  case; 
end  loop; 
end  MANAGE_MENU; 


procedure  MAIN   is 
begin 

MANAGE_MENU(MAIN_MENU); 
end  MAIN; 


procedure  DRAU_RUNTIMEJJORDER    is 
begin 

SYSTEMJJPECIFIC.DRAW_BOX; 

SYSTEM  J5PECIFIC. REVERSE  J/IDEO_ON; 

SYSTEM J5PECIFIC.PUTJ>TRING(   0,    19,   MISSILE. RUNTIMEJITLE); 
SYSTEMJ5PECIFIC.PUTJ>TRING(24,   25,"  Press  space  bar  to  pause  run  "); 
SYSTEM  J5PECIFIC. REVERSE  J/IDEO_OFF; 
end  DRAU_RUNTIMEJJORDER; 


procedure  SETUP_RUNTIMEJ5CREEN   is  separate; 
procedure  SETUP_MENU_DATA  is  separate; 
task  body  KEYBOARD_HANDLER   is  separate; 


begin 

SETUP_MENU_DATA; 
end  USERJNTERFACE; 


--  User  Interface  Package  Subunit 

--  This  subunit  contains  all  the  data  describing  the  user  interface. 
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separate  (USERJNTERFACE) 


procedure  SETUP_MENU_DATA   is 
begin 

--  Graph  Group  4  Main  Menu 

GRAPH_GRP4_MENU_ITEMS(7)    :=  new  MENUJTEMJYPE'dTEMJCIND   =>  ACTION, 
TITLE  =>  "Msl  Drag  Coefficient  ", 

DATA_TYPE  =>  NONE,    NEXTJTEM  =>  null,   ACTIONJCIND   =>  GRP4JJRAPH7); 

GRAPH_GRP4_MENU_ITEMS(6)    :=  new  MENU_ITEM_TYPE' ( ITEM_KIND  =>  ACTION, 
TITLE   =>   "Msl   RF  S/N  Ratio  ", 

DATA_TYPE   =>   NONE,    NEXTJTEM   =>   GRAPH_GRP4_MENU_ITEMS(7), 
ACTION_KIN0   =>  GRP4_GRAPH6); 

GRAPH_GRP4_MENU_ITEMS(5)    :=  new  MENU_ITEM_TYPE' ( ITEM_KIND   =>  ACTION, 
TITLE  =>  "Msl  Seeker  Gimbal  Angles  ", 

DATA_TYPE  =>  NONE,    NEXTJTEM  =>  GRAPH_GRP4_MENUJTEMS(6), 
ACTION_KIND   =>  GRP4_GRAPH5); 

GRAPH_GRP4_MENUJTEMS(4)    :=  new  MENUJTEMJYPE'dTEMJCIND   =>  ACTION, 
TITLE  =>   "Msl   Weight  ", 

DATA  TYPE  =>  NONE,    NEXTJTEM  =>  GRAPH_GRP4_MENUJTEMS(5), 
ACTION_KIND  =>  GRP4_GRAPH4); 

GRAPH_GRP4_MENUJTEMS(3)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  ACTION, 
TITLE  =>  "Msl  Angle  of  Attack  », 

DATAJYPE  =>  NONE,    NEXTJTEM  =>  GRAPH_GRP4_MENUJTEMS(4), 
ACTIONJCIND  =>  GRP4_GRAPH3); 

GRAPH_GRP4_MENUJTEMS(2)    :=  new  MENUJTEMJYPE'  ( I TEMJC I ND   =>  ACTION, 
TITLE  =>  "Msl  Achieved  Acceleration  ", 

DATAJYPE  =>  NONE,    NEXT    ITEM  =>  GRAPH_GRP4_MENUJTEMS(3), 
ACTIONJCIND   =>  GRP4_GRAPH2); 

GRAPH_GRP4_MENUJTEMS(1)    :=  new  MENUJTEMJYPE'dTEMJCIND   =>  ACTION, 
TITLE  =>  "Msl  Acceleration  Commands  ", 

DATAJYPE   =>  NONE,    NEXTJTEM  =>  GRAPH_GRP4_MENUJTEMS(2), 
ACTIONJCIND  =>  GRP4_GRAPH1); 

GRAPH_GRP4_MENU    :=  new  MENU JYPE' (TITLE  => 

"  Msl  Parameter  Graph  Menu  ", 

FIRSTJTEM  =>  GRAPH_GRP4_MENUJTEMS(1),    ROWSJ3ETWEENJTEMS  =>  2); 

--   Graph  Group  3  Main  Menu 

GRAPH_GRP3_MENUJTEMS(3)    :=  new  MENUJTEMJYPE1  (I  TEMJC  I  ND   =>  ACTION, 
TITLE  =>  "Msl   Fuel   Flow  Rate  ", 

DATAJYPE  =>  NONE,    NEXTJTEM  =>  null,   ACTIONJCIND   =>  GRP3_GRAPH3); 

GRAPH_GRP3_MENUJTEMS(2)    :=  new  MENUJTEMJYPE' (I  TEMJC  I  ND   =>  ACTION, 
TITLE  =>  "Msl   Fuel  Weight  ", 

DATAJYPE  =>  NONE,   NEXTJTEM  =>  GRAPH_GRP3_MENUJTEMS(3), 
ACTIONJCIND  =>  GRP3_GRAPH2); 

GRAPH_GRP3_MENUJTEMS(1)    :=  new  MENUJTEMJYPE '( ITEM JCIND   =>  ACTION, 
TITLE  =>  "Msl   Thrust  ", 

DATAJYPE   =>  NONE,    NEXTJTEM  =>  GRAPH_GRP3_MENUJTEMS(2), 
ACTIONJCIND   =>  GRP3_GRAPH1); 

GRAPH_GRP3_MENU    :=  new  MENUJYPE' (TITLE  => 

"  Msl  Propulsion  Graph  Menu  ", 

FIRSTJTEM  =>  GRAPH_GRP3_MENUJTEMS(1),    ROWSJJETWEENJTEMS  =>  2); 
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--  Graph  Group  2  Main  Menu 

GRAPH_GRP2_MENU_ITEMS(5)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  ACTION, 
TITLE  =>  "Msl   Yaw  Angle  ", 

DATA_TYPE  =>  NONE,    NEXTJTEM  =>  null,   ACTION_KIND  =>  GRP2_GRAPH5); 

GRAPH_GRP2_MENU_ITEMS(4)    :=  new  MENU_ITEM_TYPE'(ITEM_KIND  =>  ACTION, 
TITLE  =>  "Msl   Pitch  Angle  ", 

DATA_TYPE   =>  NONE,    NEXT    ITEM  =>  GRAPHGRP2  MENU   ITEMS(5), 
ACTIONJCIND  =>  GRP2J3RAPH4); 

GRAPH_GRP2_MENU_ITEMS(3)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  ACTION, 
TITLE  =>  "Msl  Altitude  Rate  ", 

DATA_TYPE   =>  NONE,    NEXTJTEM  =>  GRAPH_GRP2_MENU_ITEMS(4), 
ACTIONJCIND   =>  GRP2_GRAPH3); 

GRAPH_GRP2_MENU_ITEMS(2)    :=  new  MENU_ITEM_TYPE'(ITEMJCIND  =>  ACTION, 
TITLE  =>  "Msl  Velocity  ", 

DATA_TYPE   =>  NONE,    NEXTJTEM  =>  GRAPH_GRP2_MENU   ITEMS(3), 
ACTIONJCIND  =>  GRP2_GRAPH2); 

GRAPHJ5RP2_MENUJTEMS(1)    :=  new  MENUJTEMJYPE'  (ITEMJCIND  =>  ACTION, 
TITLE  =>  "Msl  Mach  Number  ", 

DATAJYPE   =>   NONE,    NEXTJTEM  =>  GRAPH_GRP2_MENUJTEMS(2), 
ACTIONJCIND   =>  GRP2_GRAPH1); 

GRAPH J3RP2_MENU    :=  new  MENU JYPE' (TITLE   => 

"  Msl  Kinematics  Graph  Menu  ", 

FIRSTJTEM  =>  GRAPHJ3RP2_MENUJTEMS(1),    ROUS_BETUEENJTEMS  =>  2); 

--  Graph  Group  1  Main  Menu 

GRAPH_GRP1_MENUJTEMS(7)    :=  new  MENUJTEMJYPE' (ITEM  KIND   =>  ACTION, 
TITLE  =>  "Launch  A/C-Tgt  Range  ", 

DATAJYPE   =>  NONE,    NEXTJTEM  =>  null,   ACTIONJCIND   =>  GRP1_GRAPH7); 

GRAPH  GRP1_MENUJTEMS(6)    :=  new  MENUJTEMJYPE'  ( I TEMJC I ND  =>  ACTION, 
TITLE  =>  "Tgt  Heading  Angle  ", 

DATA  TYPE   =>  NONE,    NEXTJTEM  =>  GRAPHJ5RP1_MENUJTEMS(7), 
ACTIONJCIND  =>  GRP1_GRAPH6); 

GRAPH_GRP1_MENUJTEMS(5)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  ACTION, 
TITLE  =>  "Msl-Tgt  LOS  Angle  Rates  ", 

DATAJYPE   =>  NONE,    NEXTJTEM  =>  GRAPH _GRP1_MENU   ITEMS(6), 
ACTIONJCIND  =>  GRP1J5RAPH5); 

GRAPH  J5RP1   MENU   ITEMS(4)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  ACTION, 
TITLE  =>  "Msl-Tgt  Range  ", 

DATAJYPE  =>  NONE,    NEXTJTEM  =>  GRAPH_GRP1_MENUJTEMS(5), 
ACTIONJCIND  =>  GRP1_GRAPH4); 

GRAPH  GRP1   MENU   ITEMS(3)    :=  new  MENUJTEM  TYPE' (ITEM JCIND   =>  ACTION, 
TITLE  =>  "Msl-Tgt  Range  Rate  ", 

DATAJYPE   =>  NONE,   NEXTJTEM  =>  GRAPH_GRP1_MENU   ITEMS(A), 
ACTIONJCIND  =>  GRP1J3RAPH3); 

GRAPHJ3RP1_MENUJTEMS(2)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  ACTION, 
TITLE  =>  "Plan  view  of  trajectory  ", 

DATA  TYPE  =>  NONE,   NEXT    ITEM  =>  GRAPHGRP1  J1ENUJTEMS(3), 
ACTIONJCIND  =>  GRP1J3RAPH2); 

GRAPH_GRP1J1ENUJTEMS(1)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  ACTION, 
TITLE  =>  "Elevation  view  of  trajectory     ", 
DATAJYPE   =>  NONE,    NEXTJTEM  =>  GRAPH_GRP1_MENUJTEMS(2), 
ACTIONJCIND  =>  GRP1_GRAPH1); 

GRAPH J5RP1_MENU   :=  new  MENU JYPE' (TITLE  => 

"~  Msl-Tgt  Geometry  Graph  Menu  ", 

FIRST    ITEM  =>  GRAPH_GRP1   MENU   ITEMS(1),    ROWSJ3ETWEENJTEMS  =>  2); 
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--  Graph  Main  Menu 

GRAPH_MENU_ITEMS<4)    :=  new  MENU_ITEM_TYPE' (ITEMJCIND  =>  SUBMENU,    TITLE   => 
"Msl  Parameter  Graph  Menu  ", 

DATA_TYPE   =>  NONE,    NEXTJTEM  =>  null,    NEXT_MENU  =>  GRAPH_GRP4_MENU); 

GRAPH_MENU_ITEMS(3)    :=  new  MENUJTEM_TYPE'(  ITEMJCIND  =>  SUBMENU,    TITLE   => 
"Msl  Propulsion  Graph  Menu  ", 

DATA_TYPE   =>   NONE,    NEXT_ITEM  =>  GRAPH_MENU_ITEMS(4),    NEXT_MENU  => 
GRAPH_GRP3_MENU); 

GRAPH_MENU_ITEMS(2)    :=  new  MENU_ITEM_TYPE'( ITEMJCIND  =>  SUBMENU,    TITLE   => 
"Msl  Kinematics  Graph  Menu  ", 

DATA  TYPE   =>  NONE,    NEXTJTEM  =>  GRAPHJ1ENUJTEMS(3),    NEXT_MENU  => 
GRAPH_GRP2_MENU); 

GRAPH_MENU_ITEMS(1)    :=  new  MENU JTEMJ'YPE'  (ITEMJCIND  =>  SUBMENU,    TITLE   => 
"Msl-Tgt  Geometry  Graph  Menu       ", 

DATA_TYPE   =>  NONE,    NEXT    ITEM  =>  GRAPHJ1ENUJTEMS(2),    NEXTMENU  => 
GRAPH  J3RP1JIENU); 

GRAPH_MENU   :=  new  MENU _TYPE' (TITLE  => 

"  Graph  Menus  ", 

FIRST J TEM  =>  GRAPH_MENUJTEMS(1),    R0WSJ3ETWEENJTEMS  =>  2); 

--  SOJ  2  Parameter  Menu 

SOJ2_MENU_ITEMS(5)    :=  new  MENU_ITEM_TYPE'(ITEM_KIND   =>  DATAJTEM, 
TITLE~=>     "SOJ   ERPD,   dBW/MHz:  ", 

PROMPT  =>  "Enter  SOJ  ERPD  (dBW/MHz):  ", 

REALJ/ALUE  =>  30.0,   MAXJ/ALUE  =>  200.0,   MINJ/ALUE   =>  0.0, 
DATA_TYPE  =>   FLOATING_PT,    NEXTJTEM  =>  null); 

SOJ2jiENUJTEMS(4)    :=  new  MENU  J  TEM  _T  YPE'(  ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "SOJ  ECM  technique:  ", 

SOJ_ECM_VALUE   =>  BARRAGEJJOISE, 
PROMPT  =>  "  ", 

DATAJTPE  =>  SOJ_ECM,    NEXT_ITEM  =>  SOJ2jiENUJTEMS(5)); 

SOJ2_MENUJTEMS(3)    :=  new  MENU  J  TEM  J  YPE'(  ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Look  angle  rel.   to  LAC,   deg:     ", 
PROMPT  =>  "Enter  angle  (deg)(+right):         ", 
REALJ/ALUE   =>  0.0,   MAXJ/ALUE  =>  90.0,   MINJ/ALUE   =>   -90.0, 
DATAJ-YPE  =>   FLOATING_PT,    NEXT  J  TEM  =>  S0J2J4ENUJTEMS(4)); 

SOJ2_MENUJTEMS(2)    :=  new  MENUJ TEM _TYPE'( ITEMJCIND   =>  DATA_ITEM, 
TITLE  =>  "Range  from  launch  A/C,   NMI:       ", 
PROMPT  =>  "Enter  distance  (NMI):  ", 

REALJ/ALUE   =>   150.0,   MAXJ/ALUE  =>  500.0,   MINJ/ALUE   =>  0.0, 
DATAJ-YPE  =>   FLOATING_PT,    NEXTJTEM  =>  SOJ2J1ENUJTEMS(3)); 

SOJ2  MENUJTEMS(I)    :=  new  MENU   ITEM _TYPE'( ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "SOJ  altitude,   kft:  ", 

PROMPT  =>  "Enter  altitude  (kft):  ", 

REALJ/ALUE  =>  30.0,   MAXJ/ALUE  =>   150.0,   MINJ/ALUE   =>  0.0, 
DATAJ-YPE  =>   FLOATINGJ>T,    NEXTJTEM  =>  SOJ2_MENUJTEMS(2)); 

SOJ2_MENU   :=  new  MENU _TYPE' (TITLE  => 

"  SOJ  2  Parameter  Menu  ", 

FIRSTJTEM  =>  SOJ2_MENUJTEMS(1),    ROWSJ3ETWEENj:TEMS  =>  2); 

--   SOJ   1   Parameter  Menu 

S0J1_MENUJTEMS(5)    :=  new  MENU   JTEMJ'YPE '(ITEMJCIND  =>  DATAJTEM, 
TITLE  =>   "SOJ   ERPD,   dBW/MHz:  ", 

PROMPT  =>  "Enter  SOJ  ERPD  (dBW/MHz):  ", 

REALJ/ALUE  =>  30.0,   MAXJ/ALUE  =>  200.0,   MINJ/ALUE   =>  0.0, 
DATA  TYPE  =>   FLOATING  PT,    NEXT J TEM  =>  null); 
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S0J1_MENU   ITEMS(4)    :=  new  MENU_ITEM_TYPE'(ITEM_KIND  =>  DATAJTEM, 
TITLE~=>  "SOJ  ECM  technique:  ", 

SOJ_ECM_VALUE   =>  BARRAGE_NOISE, 
PROMPT   =>  "  ", 

DATA_TYPE  =>  SOJ_ECM,    NEXT_ITEM  =>  S0J1_MENU_ITEMS(5)); 

SOJ1_MENU   ITEMS(3)    :=  new  MENUJTEMJYPE'dTEMJGND  =>  DATAJTEM, 
TITLE~=>  "Look  angle  rel.   to  LAC,  deg:     ",~ 
PROMPT  =>  "Enter  angle  <deg)<+right):         ", 
REAL_VALUE   =>  0.0,   MAX_VALUE   =>  90.0,   MINJ/ALUE  =>   -90.0, 
DATA_TYPE   =>   FLOATING_PT,    NEXTJTEM  =>  S0J1_MENU_ITEMS(4)); 

S0J1_MENU_ITEMS(2)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Range  from  launch  A/C,   NMI:       ", 
PROMPT  =>  "Enter  distance  (NMI):  ", 

REALJ/ALUE  =>   150.0,   MAXJ/ALUE  =>  500.0,   MINJ/ALUE  =>  0.0, 
DATAJYPE  =>   FL0ATING_PT7  NEXTJTEM  =>  S0J1_MENUJTEMS(3)); 

SOJ1   MENU   ITEMS(1)    :=  new  MENU   ITEMJYPE'dTEMJCIND  =>  DATAJTEM, 
TITLE~=>  "SOJ  altitude,    kft:  ", 

PROMPT  =>  "Enter  altitude  (kft):  ", 

REALJ/ALUE  =>  30.0,   MAXJ/ALUE  =>   150.0,   MINJ/ALUE  =>  0.0, 
DATAJYPE   =>   FLOATING  J>T,    NEXTJTEM  =>  S0J1  J1ENUJTEMS(2)); 

S0J1_MENU   :=  new  MENU JYPE' (TITLE  => 

"  SOJ   1  Parameter  Menu  ", 

FIRSTJTEM  =>  S0J1_MENUJTEMS(1),    ROWSJ3ETWEENJTEMS  =>  2); 

--   Target  2  Parameter  Menu 

TGT2_MENUJTEMS(7)    :=  new  MENUJTEMJYPE'(ITEM_KIND   =>  DATAJTEM, 
TITLE  =>  "ERPD,   dBU/Mhz;    LG,   dB:  ", 

PROMPT  =>  "Enter  ERPD/LG  (dBW/Mhz:dB):       ", 
REALJ/ALUE  =>  30.0,   MAXJ/ALUE  =>  200.0,   MINJ/ALUE  =>  0.0, 
DATAJYPE   =>   FLOATING_PT,    NEXTJTEM  =>  null); 

TGT2  MENU   ITEMS(6)    :=  new  MENU   ITEM  TYPE'UTEMJCIND  =>  DATA   ITEM, 
TITLE~=>  "ECM  technique:  ", 

SSJ   ECM  VALUE  =>  NONE, 

PROMPT  =>   "  ", 

DATAJYPE   =>  SSJ_ECM,    NEXTJTEM  =>   TGT2J1ENUJTEMS(7)); 

TGT2J«IENUJTEMS(5)    :=  new  MENUJTEMJYPE'dTEMJCIND   =>  DATAJTEM, 
TITLE  =>  "Target   IR  radiance:  ", 

TGTJR  SIZE  VALUE  =>  MEDIUM, 
PROMPT~=>   "~  ", 

DATAJYPE  =>  TGTJRJSIZE,    NEXTJTEM  =>  TGT2_MENUJTEMS(6)); 

TGT2J<IENUJTEMS(4)    :=  new  MENUJTEMJYPE'dTEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Target  RCS,   square  meters:         ", 
PROMPT  =>  "Enter  RCS  (square  meters):         ", 
REALJ/ALUE  =>  2.0,   MAXJ/ALUE  =>   100.0,   MINJ/ALUE  =>  0.0, 
DATAJYPE  =>   FLOATING_PT,   NEXTJTEM  =>  TGT2jiENUJTEMS(5)); 

TGT2J4ENUJTEMS(3)    :=  new  MENUJTEMJYPE'dTEMJCIND   =>  DATAJTEM, 
TITLE~=>  "Echelon  angle,  deg  (90  trail):", 
PROMPT  =>  "Enter  echelon  angle,   (deg):       ", 
REALJ/ALUE  =>  0.0,   MAXJ/ALUE   =>   180.0,   MINJ/ALUE   =>   -180.0, 
DATAJYPE  =>   FLOATINGJT,    NEXTJTEM  =>  TGT2J4ENUJTEMS(4)); 

TGT2J1ENUJTEMS(2)    :=  new  MENUJTEMJYPE'(ITEMJ(IND   =>  DATAJTEM, 
TITLE~=>  "Range  to  target  T,   feet:  ", 

PROMPT  =>  "Enter  range  (feet):  ", 

REALJ/ALUE  =>   100.0,   MAXJ/ALUE  =>   100000.0,   MINJ/ALUE  =>   -100000.0, 
DATAJYPE  =>   FLOATING_PT7  NEXTJTEM  =>  TGT2_MENUJTEMS(3)); 

TGT2  MENUJTEMS(I)    :=  new  MENU   ITEM  TYPE'UTEM  KIND  =>  DATAJTEM, 
TITLE~=>  "Target  altitude,~kft:~  ",~ 

PROMPT  =>  "Enter  altitude  (kft):  ", 
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REAL  VALUE  =>  30.0,   MAXJ/ALUE  =>   150.0,   MINJ/ALUE  =>  0.0, 
DATA~TYPE  =>   FLOATING_PT,    NEXTJTEM  =>  TGT2_MENU_ITEMS(2)); 

TGT2_MENU   :=  new  MENU  JYPE' (TITLE  => 

"  Target  2  Parameter  Menu  ", 

FIRST_ITEM  =>  TGT2_MENU_ITEMS(1),    ROWS_BETWEEN_ITEMS  =>  2); 

--  Target  1  Parameter  Menu 

TGT1_MENU_ITEMS(15)    :=  new  MENU_ITEM_TYPE'(ITEM_KIND  =>  DATA_ITEM, 
TITLE  =>  "ERPD,   dBW/Mhz;   Loop  gain,   dB:   ", 
PROMPT  =>  "Enter  ERPD/LG  (dBW/Mhz:dB)      :   ", 
REAL_VALUE   =>  30.0,   MAXJ/ALUE  =>  200.0,   MINJ/ALUE   =>  0.0, 
DATA_TYPE  =>   FLOATING_PT,    NEXT_ITEM  =>  null); 

TGT1   MENU_ITEMS(14)    :=  new  MENU_ITEM_TYPE'(ITEM_KIND  =>  DATAJTEM, 
TITLE  =>  "ECM  technique:  ", 

SSJ_ECM_VALUE   =>  NONE, 

PROMPT  =>  "  ", 

DATA_TYPE   =>  SSJ_ECM,    NEXT_ITEM  =>  TGT1_MENU_ITEMS(15)); 

TGT1_MENU_ITEMS(13)    :=  new  MENU_ITEM_TYPE'(ITEM_KIND  =>  DATA_ITEM, 
TITLE  =>  "Weave  period,   sec:  ", 

PROMPT  =>  "Enter  weave  period  (sec):  ", 

REALJ/ALUE  =>  20.0,   MAXJ/ALUE  =>   100.0,    MINJ/ALUE  =>   1.0, 
DATAJYPE   =>   FLOATING_PT,    NEXTJTEM  =>  TGT1  J*ENUJTEMS(14)); 

TGT1_MENUJ'TEMS(12)    :=  new  MENUJTEMJYPE'(ITEMJ<IND  =>  DATAJTEM, 
TITLE~=>  "Angle  to  turn,   deg  (+right):     ", 
PROMPT  =>  "Enter  angle  to  turn  (deg):         ", 

REAL  VALUE  =>   10.0,   MAXJ/ALUE  =>  3600.0,   MINJ/ALUE  =>   -3600.0, 
DATAJYPE  =>   FLOATING J>T,    NEXTJTEM  =>  TGT1  J1ENUJTEMS(13)); 

TGTIJIENUJTEMSai)    :=  new  MENUJTEMJYPE'(ITEMJ<IND  =>  DATAJ'TEM, 
TITLE  =>  "Maneuver  buildup  time,   sec:       ", 
PROMPT  =>  "Enter  buildup  time  (sec):  ", 

REALJ/ALUE  =>   1.0,   MAXJ/ALUE  =>   10.0,   MINJ/ALUE  =>  0.0, 
DATAJYPE   =>   FLOATING_PT,    NEXTJTEM  =>  TGT1_MENUJTEMS(12)); 

TGT1J1ENUJTEMS(10)    :=  new  MENUJTEMJ"YPE'(ITEMJ<IND  =>  DATAJTEM, 
TITLE  =>  "Man.   start  value, "sec  or  NMI:   ", 
PROMPT  =>  "Enter  start  value  (sec  /  NMI):", 
REALJ/ALUE   =>   10.0,   MAXJ/ALUE  =>  500.0,   MINJ/ALUE  =>  0.0, 
DATAJ-YPE   =>   FLOATING_PT,   NEXTJTEM  =>  TGT1_MENUJ"TEMS(11  )); 

TGT1_MENUJTEMS(9)    :=  new  MENUJTEMjrYPE'dTEMjaND  =>  DATAJ'TEM, 
TITLE  =>  "Maneuver  start  parameter:  ", 

MANEUVERJSTARTJ/ALUE  =>   FLIGHT  TIME, 
PROMPT   =>  "  », 

DATAJ-YPE   =>  MANEUVER J5TART,    NEXTJTEM  =>  TGT1_MENUJTEMS(10)); 

TGT1_MENUJTEMS(8)    :=  new  MENUJTEM_TYPE'(ITEMJ<IND  =>  DATAJ'TEM, 
TITLE~=>  "Maneuver  g's:  ", 

PROMPT  =>  "Enter  maneuver  g's:  ", 

REALJ/ALUE  =>  2.0,   MAX  VALUE  =>   12.0,   MINJ/ALUE   =>  0.0, 
DATATYPE  =>   FLOATING_PT,   NEXTJTEM  =>  TGT1  J1ENUJTEMS(9)); 

TGT1_MENUJ-TEMS(7)    :=  new  MENUJ-TEMJ^YPE'dTEMJCIND  =>  DATAJ^TEM, 
TITLE  =>  "Maneuver  type:  ", 

MANEUVER J/ALUE  =>  NONE, 

PROMPT  =>  "  ", 

DATAJ-YPE  =>  MANEUVER,    NEXTJTEM  =>  TGT1  J1ENUJTEMS(8)); 

TGT1_MENUJ-TEMS(6)    :=  new  MENUJ'TEMJYPE,(ITEM_KIND   =>  DATAJ'TEM, 
TITLE  =>  "Target   IR  radiance:  ", 

TGTJRJ5 1 ZE J/ALUE  =>  MEDIUM, 
PROMPT   =>   "  », 

DATAJYPE  =>  TGTJ"RJ>IZE,    NEXTJ'TEM  =>   TGT1_MENUJTEMS(7)); 
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TGT1_MENUJTEMS(5)   :=  new  MENUJTEMJYPE' (ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Target  RCS,   square  meters:         ", 
PROMPT  =>  "Enter  RCS  (square  meters):         ", 
REALJ/ALUE  =>  2.0,   MAX_VALUE   =>   100.0,   MINJ/ALUE  =>  0.0, 
DATATYPE  =>   FLOATINGJT,   NEXT_ITEM  =>  TGT1_MENU_ITEMS(6)); 

TGT1_MENUJTEMS(4)    :=  new  MENUJTEMJYPE '(ITEMJCIND   =>  DATAJTEM, 
TITLE  =>  "Target  slant   range,   NMI:  ", 

PROMPT  =>  "Enter  range  (NMI):  ", 

REALJ/ALUE   =>  20.0,   MAX  VALUE  =>  500.0,   MINJ/ALUE   =>  0.0, 
OATAJYPE  =>   FLOATINGJT,    NEXTJTEM  =>   TGT1_MENUJTEMS(5)); 

TGT1_MENUJTEMS(3)    :=  new  MENUJTEMJYPE1  (ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Target  aspect  angle,   deg:  ", 

PROMPT  =>  "Enter  aspect  angle  (deg):  ", 

REAL  VALUE  =>   180.0,   MAXJ/ALUE  =>  360.0,   MINJ/ALUE  =>   -360.0, 
DATAJYPE   =>   FLOATING_PT,    NEXTJTEM  =>  TGT1_MENUJ"TEMS(4)); 

TGT1_MENUJTEMS(2)    :=  new  MENUJTEMJYPE1  (ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Target  speed,  mach:  ", 

PROMPT  =>  "Enter  mach  number:  ", 

REALJ/ALUE  =>  0.9,   MAXJ/ALUE  =>  4.0,   MINJ/ALUE   =>  0.0, 
DATAJYPE   =>    FLOATINGJT,    NEXTJTEM  =>   TGT1_MENUJTEMS(3)  ); 

TGT1_MENUJTEMS(1)    :=  new  MENUJTEMJYPE'  (I TEM_K I ND  =>  DATAJTEM, 
TITLE  =>  "Target  altitude,   kft:  ", 

PROMPT  =>  "Enter  altitude  (kft):  ", 

REALJ/ALUE  =>  30.0,   MAXJ/ALUE  =>   150.0,   MINJ/ALUE   =>  0.0, 
DATAJYPE  =>   FLOATINGJT,    NEXTJTEM  =>  TGT1_MENUJTEMS(2)); 

TGT1_MENU   :=  new  MENU JYPE' (TITLE  => 

"  Target  1  Parameter  Menu  ", 

FIRSTJTEM  =>  TGT1_MENUJTEMS(1),   ROWSJJETWEENJTEMS  =>   1); 

--  Target  Parameter  Menus 

TGT_MENUJTEMS(7)    :=  new  MENUJTEMJYPE' (ITEMJCIND  =>  SUBMENU,    TITLE  => 
~"SOJ~2  Parameter  Menu  ", 

DATAJYPE   =>  NONE,    NEXT    ITEM  =>  null,    NEXT_MENU  => 
SOJ2_MENU); 

TGT  MENU   ITEMS(6)    :=  new  MENUJTEMJYPE  '(ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Enable  SOJ  2:  ", 

YES_NO_VALUE   =>  NO,    PROMPT   =>   "  ", 

DATAJYPE  =>  YESJJO,    NEXTJTEM  =>  TGT_MENUJTEMS(7)); 

TGT_MENUJTEMS(5)    :=  new  MENUJTEMJYPE  '(ITEMJCIND   =>  SUBMENU,    TITLE   => 
"SOJ   1  Parameter  Menu  ", 

DATA  TYPE  =>  NONE,    NEXT   ITEM  =>  TGT_MENUJTEMS(6),   NEXTMENU  => 
SOJ1~MENU); 

TGT_MENU   ITEMS(4)    :=  new  MENUJTEMJYPE '(ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Enable  SOJ   1:  ", 

YES_NO_VALUE  .=>  NO,   PROMPT  =>   "  ", 

DATAJYPE  =>  YESJtt),    NEXTJTEM  =>  TGT_MENUJTEMS(5)); 

TGT_MENUJTEMS(3)    :=  new  MENUJTEMJYPE '(ITEMJCIND  =>  SUBMENU,   TITLE  => 
"Target  2  Parameter  Menu  ", 

DATA  TYPE  =>  NONE,   NEXTJTEM  =>  TGT_MENUJTEMS(4),    NEXT_MENU  => 
TGT2~MENU); 

TGT_MENUJTEMS(2)    :=  new  MENU   ITEM  TYPE'  (ITEMJCIND  =>  DATAJTEM, 
"TITLE  =>  "Enable  target  2?  ", 

YES  NO  VALUE  =>  NO,    PROMPT   =>   "  ",       . 

DATAJYPE  =>  YESJJO,    NEXTJTEM  =>  TGT_MENUJTEMS(3)); 

TGT_MENUJTEMS(1)    :=  new  MENUJTEMJYPE  '(ITEMJCIND  =>  SUBMENU,    TITLE  => 
"Target  1  Parameter  Menu  ", 

DATAJYPE  =>  NONE,   NEXTJTEM  =>   TGT_MENUJTEMS(2),    NEXT_MENU  => 
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TGT1_MENU); 

TGT_MENU   :=  new  MENU_TYPE' (TITLE   => 

"  Target  Parameter  Menus  ", 

FIRST_ITEM  =>   TGT_MENUJTEMS(1),    ROWS_BETWEEN_ITEMS  =>  2); 

--   Launch  Aircraft  Parameter  Menu 

LAUNCHER_MENUJTEMS(6)    :=  new  MENUJTEMJYPE' ( ITEMJCIND  =>  DATAJTEM, 
TITLE  =>  "Launch  A/C  guidance  mode:  ", 

INT_GUIDANCE_VALUE  =>  NON_MANEUVERING, 
PROMPT   =>  "  ", 

DATA_TYPE  =>   INT_GUIDANCE,   NEXTJTEM  =>  null); 

LAUNCHER_MENU_ITEMS(5)    :=  new  MENU  J  TEM  JYPE' (ITEMJCIND  =>  DATA_ITEM, 
TITLE  =>  "Launch  A/C   lead  angle,   deg:       ", 
PROMPT  =>  "Enter   lead  angle  (deg):  ", 

REALJ/ALUE   =>  0.0,   MAX_VALUE   =>  90.0,   MIN_VALUE  =>   -90.0, 
DATA_TYPE  =>   FLOATING_PT,   NEXT_ITEM  =>   LAUNCHER_MENUJTEMS(6)); 

LAUNCHER_MENU_ITEMS(4)    :=  new  MENUJTEMJYPE' (ITEMJCIND   =>  DATA_ITEM, 
TITLE  =>  "Launch  A/C  speed,   mach:  ", 

PROMPT  =>  "Enter  mach  number:  ", 

REAL  VALUE  =>  0.9,   MAX_VALUE   =>  3.0,   MIN_VALUE   =>  0.0, 
DATATYPE   =>   FLOATING_PT,   NEXT_ITEM  =>  LAUNCHER_MENU_ITEMS(5)); 

LAUNCHER  J*ENUJTEMS(3)    :=  new  MENU   I  TEM  JYPE1  (ITEMJCIND   =>  DATAJTEM, 
TITLE  =>  "Launch  A/C  altitude,~kft:  ", 

PROMPT  =>  "Enter  altitude  (kft):  ", 

REAL_VALUE   =>  30.0,   MAXJ/ALUE  =>  70.0,   MIN_VALUE   =>  0.0, 
DATAJTYPE  =>   FLOATINGJT,    NEXTJTEM  =>   LAUNCHER_MENUJTEMS(4)); 

LAUNCHER_MENUJTEMS(2)    :=  new  MENUJTEMJYPE'(ITEM_KIND  =>  DATAJTEM, 
TITLE  =>  "Launcher  type:  ", 

LAUNCHER  VALUE  =>  RAIL,   PROMPT   =>   "  ' 

DATAJYPE   =>  LAUNCHER,    NEXTJTEM  =>  LAUNCHER_MENUJTEMS(3)); 

LAUNCHER_MENUJTEMS(1)    :=  new  MENUJTEMJYPE'UTEMJCIND   =>  DATAJTEM, 
TITLE  =>  "Launch  A/C  type:  ", 

AIRCRAFTJCINDJ/ALUE  =>   F   14,    PROMPT  =>  " 
DATAJYPE  =>  AIRCRAFTJCIND,    NEXTJTEM  =>   LAUNCHER  JIENUJTEMS(2)); 

LAUNCHER_MENU    :=  new  MENU JYPE' (TITLE  => 

"  Launch  Aircraft  Parameter  Menu  ", 

FIRSTJTEM  =>   LAUNCHER_MENUJTEMS(1),   ROWS_BETWEENJTEMS  =>  2); 

--   File  Operations  Menu 

FILE_MENUJTEMS(7)    :=  new  MENU  J  TEM  JYPE' (ITEM  KIND  =>  DATAJTEM, 
TITLE  =>  "Data  log  interval,   frames:         ", 
PROMPT  =>  "Enter   log  interval   (frames):     ", 
REALJ/ALUE   =>  4.0,   MAXJ/ALUE  =>   100.0,   MINJ/ALUE  =>   1.0, 
DATAJYPE  =>   FLOATING_PT,    NEXTJTEM  =>  null); 

FILE_MENUJTEMS(6)    :=  new  MENU  J  TEM  JYPE' (ITEMJCIND   =>  DATAJTEM, 
TITLE  =>  "Simulation  frame  time,   sec:       ", 
PROMPT  =>  "Enter  frame  time  (sec):  ", 

REALJ/ALUE   =>  0.25,   MAXJ/ALUE  =>   10.0,   MINJ/ALUE   =>  0.01, 
DATAJYPE  =>   FLOATING_PT,   NEXTJTEM  =>   FILE_MENUJTEMS(7)); 

FILE_MENUJTEMS(5)    :=  new  MENU  J  TEM  JYPE' (ITEMJCIND  =>  DATAJTEM, 
TITLE~=>  "Write  output  data  to  file:         ", 

YES_NO  VALUE   =>  NO,    PROMPT   =>   "  ", 

DATAJYPE   =>  YES_NO,    NEXTJTEM  =>   FILE_MENUJTEMS(6)); 

FILE_MENUJTEMS(4)    :=  new  MENUJTEMJYPE'(ITEM_KIND  =>  DATAJTEM, 
TITLE  =>  "Name  of  output  data  file:  ", 

PROMPT  =>  "Enter  name  of  output  file:         ", 
TEXTJ/ALUE   =>  MISSILE. OUT FILE, 
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DATAJYPE  =>  TEXT,  NEXTJTEM  =>  FILE_MENUJTEMS(5)); 

FILE_MENU_ITEMS(3)  :=  new  MENUJTEMJYPE '(ITEMJCIND  =>  ACTION, 
TITLE  =>  "Save  scenario  data  file      ", 
DATA  TYPE  =>  NONE,  NEXT  ITEM  =>  FILE  MENUJTEMS(4), 
ACTIONJCIND  =>  SAVE_DATA); 

FILE_MENU_ITEMS(2)  :=  new  MENUJTEMJYPE '(ITEMJCIND  =>  ACTION, 
TITLE  =>  "Load  scenario  data  file      ", 
DATA_TYPE  =>  NONE,  NEXT  ITEM  =>  FILE_MENU_ITEMS(3), 
ACTIONJCIND  =>  LOAD_DATA); 

FILE_MENU_ITEMS(1)  :=  new  MENUJTEMJYPE '(ITEMJCIND  =>  DATA_ITEM, 
TITLE  =>  "Name  of  scenario  data  file:   ", 
PROMPT  =>  "Enter  name  of  scenario  file:  ", 
TEXT_VALUE  =>  MI SSILE.DAT FILE, 
DATA_TYPE  =>  TEXT,  NEXTJTEM  =>  FILE_MENU_ITEMS(2>); 

FILE_MENU  :=  new  MENU_TYPE' (TITLE  => 

"  File  Operations  Menu  ", 

FIRSTJTEM  =>  FILE_MENU_ITEMS(1),  ROUS_BETWEEN_ITEMS  =>  2); 

--  Main  Menu 

MAIN_MENU_ITEMS(5)    :=  new  MENUJTEMJYPE '(ITEMJCIND   =>  SUBMENU,    TITLE   => 
"Graph  Data  from  Previous  Run     ", 
DATA_TYPE  =>  NONE,    NEXTJTEM  =>  null,   NEXT_MENU  =>  GRAPH_MENU); 

MAIN_MENU_ITEMS(4)    :=  new  MENU_ITEM_TYPE' (ITEM_KIND   =>  ACTION,    TITLE  => 
"Start  Simulation  Run  ", 

DATA_TYPE   =>  NONE,    NEXTJTEM  =>  MAIN_MENU   ITEMS(5), 
ACTION_KIND  =>  START  J?UN>; 

MAIN_MENUJTEMS(3)    :=  new  MENUJTEMJYPE'  (ITEMJCIND   =>  SUBMENU,    TITLE   => 
"Target  Parameter  Menus  ", 

DATAJYPE   =>  NONE,    NEXT    ITEM  =>  MAIN_MENUJTEMS(4),    NEXT_MENU  => 
TGT_MENU); 

MAIN_MENUJTEMS(2)    :=  new  MENUJTEMJYPE' (ITEMJCIND  =>   SUBMENU,    TITLE   => 
"Launch  Aircraft  Parameter  Menu", 

DATAJYPE   =>  NONE,    NEXT    ITEM  =>  MAIN_MENUJTEMS(3),    NEXT  MENU  => 
LAUNCHER  J1ENU); 

MAIN_MENUJTEMS(1)    :=  new  MENUJTEMJYPE' (ITEMJCIND   =>  SUBMENU,    TITLE  => 
"File  Operations  Menu  ", 

DATAJYPE  =>  NONE,    NEXTJTEM  =>  MAIN_MENUJTEMS(2),    NEXT_MENU  => 
FILE_MENU); 

MAIN_MENU    :=  new  MENUJYPE' (TITLE  =>  MISSILE. MAIN  MENU  TITLE, 
FIRSTJTEM  =>  MAIN_MENUJTEMS(1),    ROUSJ3ETUEENJTEMS  =>  2); 

end  SETUP_MENU_DATA; 
separate  (USERJNTERFACE) 


procedure  SETUPJNJNTIMEJ3CREEN   is 
begin 

SYSTEM JJPEC I F I C . CLEAR  JSCREEN ; 

DRAW_RUNT I ME  JJORDER ; 

SYSTEM  SPECIFIC.PUTJ5TRING(   1,  3,   "Elapsed  Time,   sec  :"); 

SYSTEM_SPECIFIC.PUTJ5TRING(   2,   3,   "Flight  Time,   sec  :"); 

SYSTEM JJPECIF I C.PUT  STRING(  3,   3,   "Ms I   Time  to  Go,   sec  :"); 

SYSTEMJ>PECIFIC.PUT~STRING(   4,   3, 

ii ii  \  • 

SYSTEMJ5PECIFIC.PUTJJTRING(  5,  3,  "Ms I  RF  Seeker  Mode      :"); 
SYSTEMJ>PECIFIC.PUT~STRING(  6,  3,  "Msl  IR  Seeker  Mode      :"); 
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SYSTEM 
SYSTEM" 

system" 
system] 
system" 


SPECIFIC 
SPECIFIC 
SPECIFIC 
SPECIFIC 
SPECIFIC 


PUT_STRING(  7 
PUT~STRING(  8 
PUT_STRING(  9 
PUT_STRING<10 
PUT  STRING(11 


SYSTEM 
SYSTEM' 

system' 
system' 


specific 
"specific 
"specific 
'specific 


,PUT_STRING(12 
,PUT_STRING(13 
,PUT_STRING(14 
PUT  STRING(15 


SYSTEM 

system' 
system' 


specific 
'specific 
"specific 


,PUT_STRING<16 
,PUT_STRING<17 
PUT   STRING(18 


SYSTEM 

system" 
system" 
system" 


SPECIFIC 
SPECIFIC 
SPECIFIC 
SPECIFIC 


,PUT_STRING(19 
,PUT_STRING<20 
,PUT_STRING<21 
PUT  STRING(22 


SYSTEM 
SYSTEM] 

system" 
system" 
system" 
system" 
system" 
system" 
system" 


SPECIFIC, 
SPECIFIC, 
SPECIFIC, 
SPECIFIC, 
SPECIFIC, 
SPECIFIC, 
SPECIFIC, 
SPECIFIC, 
SPECIFIC, 


PUT_STRING( 
PUT_STRING( 
PUT_STRING( 
PUT_STRING< 
PUT_STRING( 
PUT_STRING( 
PUT_STRING( 
PUT_STRING( 
PUT  STRING( 


SYSTEM_SPECIFIC.PUT_STRING(10 
SYSTEM_SPECIFIC.PUT_STRING(11 
SYSTEM  SPECIFIC. PUT  STRING(12 
SYSTEM  SPECIFIC. PUT  STRING(13 


SYSTEM_SPECIF 
SYSTEM  SPECIF 
SYSTEM~SPECIF 
SYSTEM_SPECIF 
SYSTEM_SPECIF 
SYSTEM  SPECIF 
SYSTEM  SPECIF 


IC.PUT_STRING(K 
IC.PUT_STRING(15 
IC.PUT_STRING(16 
IC.PUT_STRING(17 
IC.PUT_STRING(18 
IC.PUT_STRING(19 
IC.PUT  STRING(20 


end  SETUP_RUNTIME_SCREEN; 


"Ms I  Az  Gimbal  Angle,  deg  :"); 

"Msl  El  Gimbal  Angle,  deg  :"); 

"Ms I  Az  LOS  Rate,  deg/sec  :"); 

"Msl  El  LOS  Rate,  deg/sec  :"); 


"); 

"Msl  Guidance  Mode 
"Msl  Az  Accel  Cmd,  g's 
"Msl  El  Accel  Cmd,  g's 


"); 

"Msl  Propulsion  Mode 
"Msl  Thrust,  lbs 


:"); 
:"); 
:"); 


:"); 
:"); 


">; 

"Msl  Weight,  lbs  :"); 

"Msl  Angle  of  Attack,  deg  :"); 

"Msl  Sideslip  Angle,  deg  :"); 


"); 

"Msl  Mach 

"Msl  Velocity,  ft/sec 

"Msl  Altitude,  ft 

"Msl  Altitude  Rate,  ft/sec:"); 


:">; 
:"); 
:"); 


"Msl  Pitch  Angle,  deg 

"Msl  Heading  Angle,  deg 

"Msl  Downrange  Pos,  NMI 

"Msl  Crossrange  Pos,  NMI 


"); 

"Msl  X  Axis  Accel,  g's 

"Msl  Y  Axis  Accel,  g's 

"Msl  Z  Axis  Accel,  g's 


:"); 
:"); 

:"); 


:"); 
:"); 
:"); 


"); 

"Launcher-Tgt  Range,  NMI  :"); 

"Msl-Tgt  Range,  NMI  :"); 
"Msl-Tgt  Range  Rate, ft/sec:"); 

"Tgt  Mach  :"); 

"Tgt  Altitude,  ft  :"); 

"Tgt  Heading  Angle,  deg  :"); 


..,,. 


separate  (USER_INTERFACE) 


procedure  SHOW_TITLE  SCREEN  is 

NUM  TITLE  SCREEN~LINES  :  constant  :=  21; 

TITLE_SCREEN_TEXT  :  STRING_ARRAY(1 . .NUM_TITLE_SCREEN_LINES) 
"     NN     NN       ~PPPPPPPPPP        SSSSSSSSSS 
"     NNN    NN       PP      PP       SS 
"     NN  N   NN       PP      PP       SS 
"     NN  N  NN       PPPPPPPPPP       SSSSSSSSSS 
11     NN   N  NN       PP  SS 

"     NN    NNN       PP  SS 

11     NN     NN        PP  SSSSSSSSSS 


MISSILE. TITLE_SCREEN_LINE, 


HELLO! 


"The  simulation  represents  a  generic  air-to-air  missile 
"there  for  is 


and 


UNCLASSIFIED! 


125 


ENJOY! 


"); 

CHAR  :  character; 
ROW   :  integer; 
begin 

SYSTEM_SPEC I F I C . CLEAR_SCREEN ; 
SYSTEM_SPECIFIC.TURN_CURSOR  OFF; 
SYSTEM_SPECIFIC.DRAW_BOX; 

ROW  :=  2; 

for  I  in  1..NUM_TITLE_SCREEN_LINES  loop 

SYSTEM_SPECIFIC.PUT  STRING(ROW,  10,  TITLE_SCREEN_TEXT(I )); 

ROW  :=  ROW  +  1; 
end  loop; 

SYSTEM_SPEC I F I C . REVERSE_VI DEO_ON ; 

SYSTEM_SPECIFIC.PUT_STRING(24,25,  "  Press  the  space  bar  to  begin  "); 
SYSTEM JPECIFIC. REVERSE  J/IDEO_OFF; 
KEYBOARD_HANDLER.GET_KEY_WAIT(CHAR); 
end  SHOW_TITLE_SCREEN; 


separate  (USER_INTERFACE) 


task  body  KEYBOARD_HANDLER  is 

BUFFER_SIZE  :  constant  :=  100; 

BUFFER  :  arrayO . .BUFFER_SIZE)  of  character; 

HEADJNDEX  :  integer  :=  1; 

TAILJNDEX  :  integer  :=  1; 

KEYS_IN_BUFFER  :  integer  :=  0; 

begin 
loop 

while  SYSTEM_SPECIFIC.KEY  AVAILABLE  and 
KEYS_IN_BUFFER  <  BUFFER_SIZE  loop 

BUFFER(HEAD_INDEX)  :=  SYSTEM_SPECIFIC.GET_KEY; 
HEAD_IN0EX  :=  (HEAD_INDEX  mod  BUFFER_SIZE)  +  1; 
KEYS~IN_BUFFER  :=  KEYS_IN_BUFFER  +  lj 
end  loop; 

select 

accept  KEY_AVAILABLE(KEY_IN_BUFFER  :  out  boolean)  do 
if  KEYS_IN_BUFFER  >  0  then 
KEY_IN_BUFFER  :=  true; 
else 

KEY_IN_BUFFER  :=  false; 
end  if; 
end  KEY_AVAILABLE; 


or 


when  KEYS   IN  BUFFER  >  0  => 

accept  GET_KEY_WAIT(KEY   :   out  character)  do 

KEY    :=  BUFFER(TAILJNDEX); 

TAILJNDEX   :=  (TAILJNDEX  mod  BUFFERJJIZE)  +   1; 
KEYSJN_BUFFER    :=  KEYSJN_BUFFER   -    1; 
end  GET_KEY_WAIT; 

accept  GET_KEY_NOWAIT(KEY   :   out  character; 
KEYJ/ALID   :  out  boolean)  do 

if  KEYSJN_BUFFER  >  0  then 

KEY    :=  BUFFER(TAILJNDEX); 

TAILJNDEX    :=   (TAILJNDEX  mod  BUFFERJJIZE)  +   1; 

KEYS   IN  BUFFER    :=  KEYS   IN  BUFFER   -    1; 
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KEYJ/ALID  :=  true; 
else 

KEY_VALID  :=  false; 
end  if; 
end  GET_KEY_NOWAIT; 
else 

null; 
end  select; 
end  loop; 
end  KEYBOARD_HANDLER; 


System  Specific  Package  Specification 

This  package  contains  the  routines  that  are  specific  to  the  particular 
computer  system  that  it  is  running  on. 


with  MATH;  use  MATH; 

package  SYSTEM  SPECIFIC  is 
type  MENU_COMMAND  is  ( 
UP_ARROW, 
DOWN_ARROU, 
ENTER_KEY); 

procedure  INITJ/IDEO; 

function  IS_MONOCHROME 
return  boolean; 

procedure  CLEAR_SCREEN; 

procedure  REVERSE_VIDEO_ON; 

procedure  REVERSE_VIDEO_OFF; 

procedure  MOVE_CURSOR  ( 
ROW  :  integer; 
COLUMN  :  integer); 

procedure  TURN_CURSOR_ON; 

procedure  TURN_CURSOR_OFF; 

procedure  PUT  STRING  ( 
SCREEN_ROW  :  integer; 
SCREEN_COLUMN  :  integer; 
TEXT_STRING  :  string); 

procedure  PUT_REAL  ( 
ROW  :  integer; 
COLUMN  :  integer; 
NUMBER  :  REAL; 
AFTER  :  integer  :=  2); 

procedure  INPUT  STRING  ( 

TEXT_STRING~:  out  string); 

function  GET_KEY 
return  character; 

function  KEY_AVAILABLE 
return  boolean; 

function  GET_MENU_COMMAND 
return  MENU_COMMAND; 

procedure  DRAW_BOX; 
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procedure  QUIT_PROGRAM; 

end  SYSTEM_SPECIFIC; 

--  System  Specific  Package  Body 

--  This  package  contains  the  routines  that  are  specific  to  the  particular 
--  computer  system  that  it  is  running  on. 


th  MATH;  use  MATH; 

th  BIT_OPS;  use  BIT_OPS; 

th  COMMON_DISPLAY_TYPES; 

th  System; 

th  PROGRAM_CONTROL; 

th  INTERRUPT; 

th  TEXT   10; 

th  REALJO; 

th  TTY;~ 

th  BOX; 

th  EQUIPMENT; 


package  body  SYSTEM_SPECIFIC  is 
MONOCHROME   :  boolean; 
REVERSE_VIDEO  :  boolean  :=  false; 
FAST_VIDEO  :  boolean  :=  true; 
EGA_FLAG  :  boolean; 
COPROCESSOR_FLAG  :  boolean; 

--  Set  up  video  buffer  as  an  array 

MONO_BUFFER_ADDR  :  System. Address  :=  System. Address(16#B000_0000#); 
COLOR_BUFFER_ADDR  :  System. Address  :=  System.Address(16#B800_0000#); 

type  byte  is  range  0..16#FF#; 

type  SCREEN_CHAR_TYPE  is 
record 

CHAR  :  byte; 

ATTRIBUTE  :  byte; 
end  record; 

pragma  PACK(SCREEN_CHAR_TYPE); 

M0N0_BUFFER  :  array  (0..24,  0..79)  of  SCREEN_CHAR_TYPE; 
C0L0R_BUFFER  :  array  (0..24,  0..79)  of  SCREEN_CHAR~TYPE; 

for  M0N0_BUFFER  use  at  M0N0_BUFFER  ADDR; 
for  C0L0R_BUFFER  use  at  COLOR_BUFFER_ADDR; 


procedure  INIT  VIDEO  is 

REGISTER  T  INTERRUPT. REGISTERS; 

TEST_BITS  :  integer; 

EQUIP  :  EQU I PMENT. EQUIPMENTJ.  1ST ; 
begin 

REGISTER. AX  :=  16#OF00#;  --  Return  current  video  state 

I NTERRUPT. VECTOR (16#10#,  REGISTER); 

if  (REGISTER. AX  and  16#FF#)  =  7  then 
MONOCHROME  :=  true; 

else 

MONOCHROME  :=  false; 

end  if; 


REGISTER. AX 
REGISTER. BX 
REGISTER. CX 


16#1200# 
16#7F10# 

16#00FF# 


Code  to  return  EGA  info 


I NTERRUPT. VECTOR(16#10#,  REGISTER); 
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TEST  BITS  :=  (REGISTER. BX  and  16#7F00#)  or  (REGISTER. CX  and  16#00F0#); 
if  TEST_BITS  /=  0  then 

EGA_FLAG  :=  false; 
else 

EGA_FLAG  :=  true; 
end  if; 

EQUIP  :=  EQUIPMENT. LI  ST; 

if  EQUIP.MATH_COPROCESSOR  then 

COPROCESSOR_FLAG  :=  true; 
else 

COPROCESSOR_FLAG  :=  false; 

text_io.put_line( "ERROR:  No  80x87  math  coprocessor  found."); 

text_io.put_line("This  program  requires  a  math  coprocessor."); 

PROGRAM_CONTROL.QUIT(0); 
end  if; 
end  INIT_VIDEO; 


procedure  DRAU_BOX  is 
begin 

BOX.DRAW(0,  0,  24,  79,  BOX.DOUBLE_SIDED); 
end  DRAW_BOX; 


function  IS_MONOCHROME 
return  boolean  is 

begin 

return  MONOCHROME; 

end  IS_MONOCHROME; 


procedure  CLEAR_SCREEN  is 

REGISTER   :  INTERRUPT. REGISTERS; 
begin 

REGISTER. AX  :=  16#0600#; 

if  IS_MONOCHROME  then 

REGISTER.BX  :=  16#0700#; 

else 

REGISTER.BX  :=  16#0700#; 

end  if; 

REGISTER.CX  :=  16#0000#; 
REGISTER. DX  :=  16#100#  *  24  +  79; 
I NTERRUPT. VECTOR (16#10#,  REGISTER); 
end  CLEAR  SCREEN; 


procedure  REVERSE_VIDEO_ON  is 
begin 

REVERSE  VIDEO  :=  true; 
end  REVERSE~VIDEO_ON; 


procedure  REVERSE_VIDEO_OFF  is 
begin 

REVERSE_VIDEO  :=  false; 
end  REVERSE_VIDEO_OFF; 


procedure  MOVE_CURSOR  ( 
ROW  :  integer; 
COLUMN  :  integer)  is 

REGISTER   :  INTERRUPT. REGISTERS; 
begin 

REGISTER. AX  :=  16#0200#; 
REGISTER.BX  :=  16#0000#; 
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REGISTER.DX  :=  16#100#  *  ROW  +  COLUMN; 

I NTERRUPT. VECTOR (16#10#,  REGISTER); 
end  MOVE_CURSOR; 


procedure  TURN_CURSOR_ON  is 

REGISTER   :  INTERRUPT. REGISTERS; 
begin 

REGISTER. AX  :=  16#0100#;  --  Set  cursor  type 

if  IS  MONOCHROME  then 

REGISTER.CX  :=  16#0C00#;  --  Cursor  start  &  stop  lines 

else 

REGISTER.CX  :=  16#0607#; 

end  if; 

I NTERRUPT. VECTOR (16#10#,  REGISTER); 
end  TURN_CURSOR_ON; 


procedure  TURN_CURSOR_OFF  is 

REGISTER   :  INTERRUPT. REGISTERS; 
begin 

REGISTER. AX  :=  16#0100#;  --  Set  cursor  type 

REGISTER.CX  :=  16#2020#;  --  Cursor  start  &  stop  lines 

INTERRUPT. VECTOR (16#10#,  REGISTER); 
end  TURN  CURSOR_OFF; 


procedure  PUT_STRING  ( 
SCREEN_ROW  :  integer; 
SCREEN_COLUMN  :  integer; 
TEXT_STRING  :  string)  is 

COLUMN  :  integer; 
begin 

if  FAST_VIDEO  then 

COLUMN  :=  SCREEN_COLUMN; 
if  IS_MONOCHROME  then 

for  I  in  TEXT_STRING'range  loop 

MONO_BUFFER(SCREEN_ROU,  COLUMN). CHAR  := 
byte(character'pos(TEXT_STRING(I))); 
if  REVERSE_VIDEO  then 

MONO_BUFFER(SCREEN_ROW,  COLUMN). ATTRIBUTE  :=  16#70#; 
else 

MONO_BUFFER(SCREEN_ROW,  COLUMN). ATTRIBUTE  :=  16#07#; 
end  if; 

COLUMN  :=  COLUMN  +  1; 
end  loop; 
else 

for  I  in  TEXT_STRING'range  loop 

COLOR_BUFFER(SCREEN_ROW,  COLUMN). CHAR  := 
byte<character'pos(TEXT_STRING(I))); 
if  REVERSE_VIDEO  then 

COLOR_BUFFER(SCREEN_ROW,  COLUMN). ATTRIBUTE  :=  16#17#; 
else 

COLOR_BUFFER(SCREEN_ROW,  COLUMN). ATTRIBUTE  :=  16#07#; 
end  if; 

COLUMN  :=  COLUMN  ♦  1; 
end  loop; 
end  if; 
else 

TTY.Put(COMMON_DISPLAY  TYPES. ROW_RANGE(SCREEN_ROW), 
COMMON_D I SPLAY_T YPES . COLUMN_RANGE ( SCREEN_COLUMN ) , 
TEXT_STRING,  REVERSE_VIDEO  =>  REVERSEJ/IDEO); 
end  if; 
end  PUT_STRING; 


procedure  PUT_REAL  ( 

130 


ROW  :  integer; 

COLUMN  :  integer; 

NUMBER   :  REAL; 

AFTER  :  integer  :=  2)  is 

REAL_STRING  :  stringd . .10); 
begin 

REAL_IO.Put(REAL_STRING,  NUMBER,  AFT  =>  AFTER,  EXP  =>  0); 

PUT_STRING(ROW,  COLUMN,  REAL_STRING); 
end  PUT_REAL; 


procedure  INPUT_STRING  ( 

TEXT_STRING  :  out  string)  is 

LAST  :  natural; 
begin 

LAST  :=  TEXT_STRING'last; 

TTY.Get(TEXT_STRING,  LAST); 
end  INPUT_STRING; 


function  GET_KEY 

return  character  is 

SCAN_CODE  :  COMMON_DISPLAY_TYPES.byte; 

CHAR  :  character; 
begin 

TTY.Get(SCAN_CO0E,  CHAR); 

return  CHAR; 
end  GET_KEY; 


function  KEYJWAILABLE 
return  boolean  is 

begin 

return  TTY.CHAR_READY; 

end  KEY_AVAILABLE; 


function  GET_MENU_COMMAND 
return  MENU_COMMAND  is 

CHAR  :  character; 

SCAN  CODE  :  COMMON_DISPLAY_TYPES.byte; 
NEW_MENU_COMMAND  :  MENU_COMMANO; 
begin 
loop 

TTY.Get(SCAN_CODE,  CHAR); 

case  SCAN_CODE  is 
when  72  => 

NEW_MENU_COMMAND  :=  UP_ARROW; 
exit; 
when  80  => 

NEU_MENU_COMMAND  :=  DOWN_ARROW; 
exit; 
when  28  => 

NEW_MENU_COMMAND  :=  ENTER_KEY; 
exit; 
when  others  => 
null; 
end  case; 
end  loop; 

return  NEU_MENU_COMMAND; 
end  GET_MENU_COMMAND; 


procedure  QUIT  PROGRAM  is 

DUMMY  :  integer; 
begin 
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CLEAR_SCREEN; 
MOVE_CURSOR(0,  0); 
TURN_CURSOR_ON; 
PROGRAM_CONTROL.QUIT(0); 
end  QUIT  PROGRAM; 


end  SYSTEM_SPECIFIC; 

--  Integration  Package  Specification 

--  This  package  contains  the  limited  private  data  type  for  state  variables  and 
--  the  integration  initialization  and  update  procedures  used  on  the  state's. 


with  MATH;  use  MATH; 
package  INTEGRATION  is 

procedure  INITIALIZE; 

procedure  ADVANCE_TIME; 

procedure  SET_TIME_STEP_SIZE  < 

NEW_TIME_STEP_SIZE  :  in  REAL); 

function  STEP_SIZE 
return  REAL; 

end  INTEGRATION; 

--  Integration  Package  Body 

--  This  package  performs  integration  of  the  state  variables. 


with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  APPLICATION; 

with  ENVIRONMENT; 

package  body  INTEGRATION  is 
TIME_STEP_SIZE  :  REAL; 

STATE  :  VECTOR(1 . .APPLICATION. NUMBER_OF_STATE_VARIABLES); 
TEMP_STATE  :  VECTOR(1 . .APPLICATION. NUMBER_OF_STATE_VARIABLES); 
DERIVATIVE1  :  VECTOR (1 . . APPLICATION. NUMBER_OF_STATE_VAR I ABLES); 
DERIVATIVE2  :  VECTOR(1 . .APPLICATION. NUMBER_OF_STATE_VARIABLES); 


procedure  SET_TIME_STEP_SIZE  ( 

NEW_TIME_STEP_SIZE  :  in  REAL)  is 

begin 

TIME  STEP_SIZE  :=  NEW_TIME_STEP_SIZE; 

end  SET_TIME_STEP_SIZE; 


procedure  HANNA  is 
begin 

TEMP  STATE  :=  STATE  +  DERIVATIVE2  *  TIME  STEP_SIZE;  --  Euler  step 

ENVIRONMENT. SET  TIME(ENVIRONMENT.Time  +  TIME_STEP_SIZE);  --  Update  time 

APPL I  CAT  I  ON . PUT_STATES( TEMP_STATE ) ; 

APPL I  CAT  I  ON . COMPUTE_DER I VATTvES ; 

APPLICATION. GET_DERIVATIVES(DERIVATIVE1); 

--  Trapezoidal  step 

STATE  :=  STATE  +  (DERIVATIVE1  +  DERIVATIVE2)  *  0.5*TIME_STEP_SIZE; 

DERIVATIVE2  :=  DERIVATIVE!;  --  Save  derivatives  for  next  step 
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end  HANNA; 


procedure  INITIALIZE  is 
begin 

APPLICATION. GET_DERIVATIVES(DERIVATIVE2); 

APPLICATION. GET_STATES(STATE); 
end  INITIALIZE; 


procedure  ADVANCEJTIME  is 
begin 

HANNA; 
end  ADVANCE_TIME; 

function  STEP_SIZE 

return  REAL  is 
begin 

return  TIME_STEP_SIZE; 
end  STEP_SIZE; 

end  INTEGRATION; 

--  Math  Package  Specification 


with  MATHJ.IB; 

package  MATH  is 

type  REAL  is  digits  15;   --  Use  this  for  all  floating  point  values 

PI   :  constant  :=  MATH_LIB.PI;  --  Di mens  ion I ess 

E  :  constant  :=  MATHJ.IB.E;  --  Di mens  ion I  ess 

DEG_TO_RAD  :  constant  :=  PI  /  180.0;  --  Deg 

RAD_TO_DEG  :  constant  :=  1.0  /  DEG_T0_RAD;  --  1  /  Deg 

G  :  constant  :=  32.174;  --  Gravity,  feet  /  sec**2 

C  :  constant  :=  983_569_000.0;  --  Light  speed,  feet  /  sec 

GAMMA  :  constant  :=  1.4;  --  Air  specific  heat  ratio 

R  :  constant  :=  1718.0;  --  Air  gas  constant,  foot- lb  /  (slug-R) 


R_EARTH  :  constant  :=  20_925_626.0 
BOLTZMANNJC  :  constant  :=  1.38E-23 
FEET  PER  NMI:  constant  :=  6076.115 


--  Earth  radius,  feet 
--  Boltzmann's  constant,  watt-sec/deg  K 
--  Feet  /  NMI 


MENU_SYSTEM  :  constant  boolean  :=  true; 

function  SIGN  ( 

ARG  :  in  REAL) 
return  REAL; 

function  SIN  ( 

ARG  :  in  REAL) 
return  REAL; 

function  COS  ( 

ARG  :  in  REAL) 
return  REAL; 

function  TAN  ( 

ARG  :  in  REAL) 
return  REAL; 

function  ASIN  ( 

ARG  :  in  REAL) 
return  REAL; 

function  ACOS  ( 

ARG  :  in  REAL) 
return  REAL; 
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function  AT AN  ( 

ARG  :  in  REAL) 
return  REAL; 

function  ATAN2  ( 

LEFT  :  in  REAL; 

RIGHT  :  in  REAL) 
return  REAL; 

function  EXP  ( 

ARG  :  in  REAL) 
return  REAL; 

function  SORT  ( 

ARG  :  in  REAL) 
return  REAL; 

function  LN  ( 

ARG  :  in  REAL) 
return  REAL; 

function  LOG  ( 

ARG  :  in  REAL) 
return  REAL; 

procedure  SEED_RAN  ( 
ARG  :  in  REAL); 

function  RAN 
return  REAL; 

function  GAUSSIAN  ( 

MEAN  :  in  REAL; 

STD_DEVIATION  :  in  REAL) 
return  REAL; 

function  LIMIT  ( 

VARIABLE  :  in  REAL; 
LOWERJ.IMIT  :  in  REAL; 
UPPERJ.IMIT  :  in  REAL) 

return  REAL; 

function  LIMIT  ( 

VARIABLE  :  in  REAL; 
LIMIT_MAGNITUDE  :  in  REAL) 

return  REAL; 

function  "**"  ( 

LEFT  :  in  REAL; 

RIGHT  :  in  REAL) 
return  REAL; 

function  MIN  ( 

LEFT  :  in  REAL; 

RIGHT  :  in  REAL) 
return  REAL; 

function  MAX  ( 

LEFT  :  in  REAL; 

RIGHT  :  in  REAL) 
return  REAL; 

function  MAX3  ( 

LEFT  :  in  REAL; 

MID  :  in  REAL; 

RIGHT  :  in  REAL) 
return  REAL; 
end  MATH; 
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--  Below  are  instantiations  of  generic  packages 

with  HATH;  use  MATH; 

with  Text_io;  use  Text_io; 

package  REAL_IO  is  new  Float_io(REAL); 

with  Text_io; 

package  LONG_IO  is  new  Text_io.Integer_io(long_integer); 

--  Define  a  package  of  'glue'  routines  needed  for  REAL_MATRIX 

with  Text_io;  use  Text  io; 
with  REAL_IO;  use  REALJO; 
with  MATH;  use  MATH; 

package  REAL_MATRIX_GLUE  is 

function  MAGNITUDE (ELEMENT  :  REAL)  return  REAL; 
function  TO_FLOAT(ELEMENT  :  REAL)  return  float; 
function  FROM_FLOAT(ELEMENT  :  float)  return  REAL; 

procedure  GET_ELEMENT(FILE  :  in  File_type;  ELEMENT  :  out  REAL); 
procedure  GET_ELEMENT(ELEMENT  :  out  REAL); 

procedure  PUT_ELEMENT(FILE  :  in  File_type;  ELEMENT  :  in  REAL); 
procedure  PUT_ELEMENT(ELEMENT  :  in  REAL); 

pragma  INLINE  (MAGNITUDE,  TO_FLOAT,  FROM_FLOAT); 
end  REAL_MATRIX_GLUE; 

package  body  REAL_MATRIX_GLUE  is 

function  MAGNITUDE  (ELEMENT  :  REAL)  return  REAL  is 
begin 

return  abs(ELEMENT); 
end  MAGNITUDE; 

function  TO_FLOAT  (ELEMENT  :  REAL)  return  float  is 
begin 

return  f loat(ELEMENT); 
end  TO_FLOAT; 

function  FROM_FLOAT  (ELEMENT  :  float)  return  REAL  is 
begin 

return  REAL(ELEMENT); 
end  FROM_FLOAT; 

procedure  GET_ELEMENT(FILE  :  in  File_type;  ELEMENT  :  out  REAL)  is 
begin 

Get(FILE,  ELEMENT); 
end  GET_ELEMENT; 

procedure  GET_ELEMENT(ELEMENT  :  out  REAL)  is 
begin 

Get(ELEMENT); 
end  GET_ELEMENT;  ' 

procedure  PUT_ELEMENT(FILE  :  in  File_type;  ELEMENT  :  in  REAL)  is 
begin 

Put(FILE,  ELEMENT); 

New  line(FILE); 
end  PUT_ELEMENT; 

procedure  PUT_ELEMENT(ELEMENT  :  in  REAL)  is 
begin 

Put(ELEMENT); 

New  line; 
end  PUT~ELEMENT; 
end  REAL_MATRIX_GLUE; 

--  Instantiate  the  MATRIX_AND_VECTOR  package  for  type  REAL  using 
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--  the  REAL_MATRIX_GLUE  routines 

with  MATRIX_AND_VECTOR; 

with  MATH;  use  MATH; 

with  REAL_MATRIX_GLUE;  use  REAL_MATRIX  GLUE; 

package  REAL_MATRIX  is  new  MATRIX_AND_VECTOR(REAL); 


-  Math  Package  Body 


with  MATHJ.IB;  use  MATHJ.IB; 

package  body  MATH  is 

RANDOM_NUMBER  :  REAL  :=  0.5;  --  Default  seed  value 

EXTRA_GAUSS  :  boolean  :=  false; 

GAUSSJ   :  REAL; 

GAUSS_2  :  REAL; 

GAUSS_MAG  :  REAL; 

GAUSS_FACTOR  :  REAL; 


function  SIGN  ( 
ARG  :  in  REAL) 
return  REAL  is 
begin 

if  ARG  >  0.0  then 

return  1.0. 
elsif  ARG  <  0.0  then 

return  -1.0 
else 

return  0.0 
end  if; 
end  SIGN; 


function  SIN  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

return  REAL(SIN(f loat(ARG))); 
end  SIN; 


function  COS  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

return  REAL(COS(f loat(ARG))); 
end  COS; 


function  TAN  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

return  SIN(ARG)  /  COS(ARG); 
end  TAN; 


function  ASIN  ( 
ARG  :  in  REAL) 
return  REAL  is 
begin 

if  ARG  =  1.0  then 
return  0.5*PI; 
else 

return  REAL(ATAN(f loat(ARG  /  SQRT(1.0  -  ARG*ARG)))); 
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end  if; 
end  ASIN; 


function  ACOS  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

if  ARG  =  0.0  then 
return  0.5*PI; 

else 

return  REAL(ATAN(f loat(SQRT(1.0  -  ARG*ARG)  /  ARG))); 

end  if; 
end  ACOS; 


function  ATAN  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

return  REAL(ATAN(f loat(ARG))); 
end  ATAN; 


function  ATAN2  ( 
LEFT  :  in  REAL; 
RIGHT  :  in  REAL) 
return  REAL  is 

RESULT  :  REAL; 
begin 

if  RIGHT  /=  0.0  then 

RESULT  :=  ATAN(LEFT  /  RIGHT); 
elsif  LEFT  >  0.0  then 

return  0.5*PI; 
else 

return  -0.5*PI; 
end  if; 


if  RIGHT  <  0.0 

then 

if  LEFT  >  0 

.0 

then 

RESULT 

:  = 

RESULT 

+  PI; 

else 

RESULT 

:  = 

RESULT 

-  PI; 

end  if; 

end  if; 

return  RESULT; 

end 

A TAN 2; 

function  EXP  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

return  REAL(EXP(f loat(ARG))); 
end  EXP; 


function  SORT  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

if  ARG  <  0.0  then 

raise  Constraint_error; 

end  if; 

return  REAL(SQRT(f loat(ARG))); 
end  SORT; 
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function  LN  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

return  REAL(LN(f loat(ARG))); 
end  LN; 


function  LOG  ( 

ARG  :  in  REAL) 

return  REAL  is 
begin 

return  LN(ARG)  /  LN(IO.O); 
end  LOG; 


procedure  SEED_RAN  ( 

ARG  :  in  REAL)  is 
begin 

RANDOM  JJUMBER  :=  abs(ARG); 
end  SEED  RAN; 


function  RAN 

return  REAL  is 


--  Notes  on  this  function:  Using  the  default  seed  (0.5)  - 

--  Using  a  multiplier  of  257.874562956093  a  pattern  of  dots  created 
--  on  an  EGA  (640x350)  screen  by  randomly  generating  x  and  y  point 
--  coordinates  had  visible  line  patterns. 

--  Using  a  multiplier  of  19257.874562956093  the  random  number  sequence 
--  began  repeating  after  about  2  million  calls. 

--  Using  the  current  value  (1257.874562956093)  the  sequence  will 

--  go  at  least  4  million  calls  without  repeating  &  appears  random  on 

--  the  EGA. 

begin 

RANDOM_NUMBER  :=  (RANDOM_NUMBER  +  0.18568271032)  *  1257.874562956093; 

RANDOM_NUHBER  :=  RANDOM  NUMBER  -  REAL( i nteger(RANDOM_NUMBER-0.5 ) ); 

return  RANDOM  JJUMBER; 
end  RAN; 


function  GAUSSIAN  ( 
MEAN  :  in  REAL; 
STD_DEVIATION  :  in  REAL) 
return  REAL  is 
begin 

if  not  EXTRA_GAUSS  then 
loop 

GAUSSJ  :=  2.0  *  RAN  -  1.0; 
GAUSS_2  :=  2.0  *  RAN  -  1.0; 

GAUSS_MAG  :=  GAUSSJ **2  +  GAUSS_2**2; 
exit  when  GAUSS_HAG  <  1.0; 
end  loop; 

GAUSS_FACTOR  :=  SORT (-2.0  *  LN(GAUSS_MAG)  /  GAUSS_MAG); 
GAUSSJ  :=  MEAN  ♦  STD_DEVIATION  *  GAUSSJ  *  GAUSS J ACTOR; 

EXTRA_GAUSS  :=  true; 
return  GAUSSJ; 
else 

GAUSS_2  :=  MEAN  +  STD_DEVIATION  *  GAUSS_2  *  GAUSSJACTOR; 
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EXTRA_GAUSS  :=  false; 
return  GAUSS_2; 
end  if; 
end  GAUSSIAN; 


function  LIMIT  ( 

VARIABLE  :  in  REAL; 
LOWER_LIM.IT  :  in  REAL; 
UPPERJ.IMIT  :  in  REAL) 
return  REAL  is 
begin 

if  VARIABLE  >  UPPERJ.IMIT  then 

return  UPPERJ.IMIT; 
elsif  VARIABLE  <  LOWER  LIMIT  then 

return  L0WER_LIMIt7 
else 

return  VARIABLE; 
end  if; 
end  LIMIT; 


function  LIMIT  ( 

VARIABLE  :  in  REAL; 
LIMIT_MAGNITUDE  :  in  REAL) 
return  REAL  is 
begin 

if  VARIABLE  >  LIMIT_MAGNITUDE  then 

return  LIMIT_MAGNITUDE; 
elsif  VARIABLE  <  -LIMIT_MAGNITUDE  then 

return  -LIMIT_MAGNITUDE; 
else 

return  VARIABLE; 
end  if; 
end  LIMIT; 


function  "**"  ( 

LEFT  :  in  REAL; 
RIGHT  :  in  REAL) 
return  REAL  is 

SIGN  :  REAL; 
begin 

if  LEFT  =  0.0  then 

return  0.0; 
elsif  RIGHT  =  REAL(integer(RIGHT))  and  LEFT  <  0.0  then 

if  RIGHT  =  2.0  *  REAL(integer(RIGHT  /  2.0))  then  --  Even  power 

SIGN  :=  1.0; 
else  --  Odd  power 

SIGN  :=  -1.0; 
end  if; 

return  SIGN  *  EXP(RIGHT  *  LN(abs(LEFT))); 
else 

return  EXP(RIGHT  *  LN(LEFT)); 
end  if; 
end  "**"; 


function  MIN  ( 

LEFT  :  in  REAL; 
RIGHT  :  in  REAL) 
return  REAL  is 
begin 

if  LEFT  <  RIGHT  then 

return  LEFT; 
else 

return  RIGHT; 
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end  if; 
end  MIN; 


function  MAX  ( 

LEFT  :  in  REAL; 

RIGHT  :  in  REAL) 

return  REAL  is 
begin 

if  LEFT  >  RIGHT  then 
return  LEFT; 

else 

return  RIGHT; 

end  if; 
end  MAX; 


function  MAX3  ( 

LEFT  :  in  REAL; 

MID  :  in  REAL; 

RIGHT  :  in  REAL) 

return  REAL  is 
begin 

return  MAX(MAX(LEFT,  MID),  RIGHT); 
end  MAX3; 
end  MATH; 


Model  Data  Types  Package  Specification 

This  package  contains  the  data  types  for  application  specific  variables 
that  need  to  be  defined  in  several  places  in  the  simulation 


with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

package  MODELJTYPES  is 

type  YES_NO_TYPE  is  (NO,  YES); 

type  SUPER_VECTOR  is  array  (positive  range  <>)  of  VECT0R(1..3); 
type  THREED  is  array  (positive  range  <>, positive  range  <>,  positive 
range  <>)  of  REAL; 

type  IR_PHASE_TYPE  is  (NON_ACTIVE,  IR_SEARCH,  IR_ACQUISITION,  IR_TRACK); 

type  RF_PHASE_TYPE1  is  (MIDCOURSE,HPRF_ACQUISTION,MPRF_ACQUISTION, TERMINAL); 
type  RF_PHASE_TYPE2  is  (NON_ACTIVE,MIDCOURSE,X_BAND_ACQUISITION, 
X_BAND_TRACK, K_BAND_ACQU I S I T I ON , K_BAND_TRACK ) ; 

type  AIRCRAFT_TYPE  is  (F_14,F_15,F_18,SIXDOF); 
type  LAUNCHER_TYPE  is  (RAIL,  EJECT); 

type  SSJ  ECM_TYPE  is  (NONE, REPEATER, BARRAGE_NOISE); 
type  SOJ~ECM~TYPE  is  (BARRAGE_NOISE,RSN,PRN); 
type  SSJ~ECM~TECHNIQUE  is  array  (1..2)  of  SSJ_ECM_TYPE; 
type  SOJ_ECM_TECHNIOUE  is  array  (1..2)  of  SOJ_ECM_TYPE; 

type  GUIDANCE_PHASE_TYPE  is  (NULL_COMMANDS,  HOLD_PATH,  LOAD_BIAS, 
VARIABLE_ARC,  ALTITUDE_HOLD,  TURN_DOWN,  TERMINAL); 

type  GUID_SELECTION_TYPE  is  (LAC_CUE,TGT_1,TGT_2,SOJ_1,SOJ_2); 

type  PROPUL_TYPE  is  (BOOST,C0AST,FLAME0UT); 

type  INT_GUIDANCE_TYPE  is  (NON_MANEUVERING,  PURSUIT); 

type  TGT_IR_SIZE_TYPE  is  (SMALL,  MEDIUM,  LARGE); 

type  MANEUVER_TYPE  is  (NONE, TURN, WEAVE); 

type  MANEUVER_START_TYPE  is  (FLIGHT_TIME,TIME_REMAINING,RANGE_TO_GO); 
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type  STOP_CONDITION_TYPE  is  (AZ_GIMBAL,EL_GIMBAL,TOTAL_GIMBAL,RANGE_RATE, 
CROSSOVER , H I T_GROUND , MAX_T I ME_OF_F L I GH T ) ; 

type  SETUP_VALUES_TYPE  is 
record 

FRAME_TIME  :  REAL; 

LOG_INTERVAL  :  INTEGER; 

INT_ALTITUDE_IC  :  REAL; 

INT_MACH_IC  :  REAL; 

INT_LEAD_ANGLE_IC  :  REAL; 

LAUNCH_TYPE      :  LAUNCHER_TYPE; 

TGT_ALTITUDE_IC  :  VECTOR (1 . .4); 

SOJ_ANGLE_IC~    :  VECTOR (1 . .2); 

TGT_MACH_IC  :  REAL; 

TGT_ASPECT_IC  :  REAL; 

TGT2_ANGLE_IC  :  REAL; 

TGT_RANGE_IC  :  VECTOR (1 . .4); 

TGT  RCS  IC  :  vector<1 . .2); 

TGT_TURN_G_IC  :  REAL; 

TGT_TURNON_VALUE_IC  :  REAL; 

TGT_BUILDUP_TIME_IC  :  REAL; 

TGT_TURN_ANG_IC  :  REAL; 

TGT_WEAVE_PER_IC  :  REAL; 

TGT_TWO_IC       :  YES_NO_TYPE; 

SOJ_ONE  IC       :  YES_NO_TYPE; 

SOJ_TWOJC  :    YES  NO  TYPE; 

TGT_ECM_POUER_IC:   VECTORll . .4); 

TGT  ECM  TECH_IC:   SSJ_ECM  TECHNIQUE; 

SOJ~ECM~TECH_IC:   SOJ  ECM~TECHNIQUE; 

INT_TYPE_IC   :   AIRCRAFT  TYPE; 

LOG_DATA  :  YES_NO_TYPE; 

INT~GUIDANCE  :  INT_GUIDANCE_TYPE; 

TGT1  IR  SIZE  :  TGT_IR_SIZE_TYPE; 

TGT2~IR~SIZE  :  TGT_IR_SIZE_TYPE; 

MANEUVER_KIND  :  MANEUVER_TYPE; 

TURN  ON_PARAMETER  :  MANEUVER  START_TYPE; 

OUTPUT_FILE  :  stringd . .30);" 
end  record; 

type  MSL_LOG_DATA_TYPE  is 
record 

REAL_VALUE  :  VECTOR(1 . .34); 

GUIDANCE_PHASE  :  GUIDANCE_PHASE_TYPE; 
RF_PHASE_1  :  RF  PHASE_TYPE1; 
RF  PHASE_2  :  RF~PHASE~TYPE2; 
IR~PHASE  :  IR_PHASE  TYPE; 
RADOME_OFF  :  boolean; 
PROPULSION_PHASE  :  PROPUL_TYPE; 
end  record; 

pragma  PACK(MSL_LOG_DATA_TYPE); 

type  LAUNCHER_LOG_DATA_TYPE  is 
record 

REAL_VALUE  :  VECTOR(1 . .3); 
end  record; 

pragma  PACK(LAUNCHER_LOG_DATA_TYPE); 

type  TARGET_LOG_DATA_TYPE  is 
record 

REAL_VALUE  :  VECTOR(1 . .9); 
end  record; 

pragma  PACK(TARGET_LOG_DATA_TYPE); 

type  LOG_RECORD_TYPE  is 
record 
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MISSILE  DATA  :  MSL  LOG  DATA  TYPE; 
LAUNCHER_DATA  :  LAUNCHER  LOG_DATA_TYPE; 
TARGET_DATA  :  TARGET_LOG~DATA_TYPE; 
end  record; 

pragma  PACK(LOG_RECORD_TYPE); 

RF_MODE  :  array  (RF_PHASE_TYPE2)  of  string(1..9)  :=  ( 
"Inactive  ", 
"Midcourse", 
"XBand  Acq", 
"XBand  Trk", 
"KBand  Acq", 
"KBand  Trk"); 

IR_MODE   :  array  (IR_PHASE_TYPE)  of  string(1..9)  :=  ( 
"Inactive  ", 
"IR  Search", 
"IR  Acq   ", 
"IR  Track  "); 

PR0PULSION_MODE  :  array  (PROPUL_TYPE)  of  string(1..9)  :=  ( 
"Boost    ", 
"Coast    "); 

GUIDANCE_MCOE  :  array  (GUIDANCE_PHASE_TYPE)  of  string(1..9)  :=  ( 
"Null  Cmds", 
"Hold  Path", 
"Load  Bias", 
"Var.  Arc  ", 
"Alt.  Hold", 
"Turn  Down", 
"Terminal  "); 

STOP  REASON  :  array  (STOP  CONDITION  TYPE)  of  string(1..9)  :=  ( 
~"Az  Gimbal", 
"El  Gimbal", 
"Tot  Gimb.", 
"Rangerate", 
"Crossover", 
"Hit  Grnd.", 
"Max  TOF  "); 

end  MODELJTYPES; 
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APPENDIX  D 
PROBLEM  SPACE  OBJECT  SOURCE  CODE  LISTINGS 


--  Launcher  package 

--  This  package  contains  the  procedure  calls  which  will  initialize, 

--  setup,  computes  and  get  and  put  the  missile  state  vector  as  well 

--  as  calculating  the  necessary  parameters  to  calculate  the  state 

--  vector. 


with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  MODEL_TYPES;  use  MODEL_TYPES; 

package  LAUNCHER  is 

procedure  SETUP(LAC_GUID_IN:   in  INT_GUIDANCE_TYPE; 
LEADJN, 
LAC_MACH_IN, 
LAC_ALT  IN: in  REAL; 
LAC_TYPE_IN:   in  AIRCRAFT_TYPE); 

procedure  PUT_STATES(STATES:  in  VECTOR); 

function  GET_DERIVATIVES  return  VECTOR; 

function  GET_STATES  return  VECTOR; 

function  LOG_DATA  return  LAUNCHER_LOG_DATA_TYPE; 

function  POLECI:   in  INTEGER)  return  REAL; 

procedure  INITIALIZE; 

function  LAC_POS  return  VECTOR; 

procedure  MSL  INIT(LAC  VEL.LAC  POSITION:  out  VECTOR;  LAC_GAIN, 

"  LAC_TRANS_PWR,  LAC_BEAMWIDTH:  out  REAL); 

procedure  COMPUTE; 

end  LAUNCHER; 

--  Launcher  package 

--  This  package  contains  the  procedure  calls  which  will  initialize, 
--  setup,  computes  and  get  and  put  the  missile  state  vector  as  well 
--as  computing  the  necessary  parameters  to  calculate  the  state 
--  vector. 


with  MODEL_TYPES;  use  MO0EL_TYPES; 

with  MATH;  use  MATH; 

with  ENVIRONMENT; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  MISSILE; 

with  TARGETS; 

WITH  TEXT_IO;WITH  REALJO; 

package  body  LAUNCHER   is 
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LAC_GUID 

LEAD 

LAC  MACH 

LAC~VEL_NED 

LAC_POS_NED 

LOGGED_DATA 

DERIVATIVES 

STATE 

LAC  TYPE 


INT_GUIDANCE  TYPE; 
REAL; 
REAL; 

VECTOR  (1..3);  -- 
VECTOR  (1..3);  -- 
LAUNCHER_LOG_DATA_TYPE 
VECTOR(1..3);  -- 
VECTOR(1..3);  -- 
AIRCRAFT_TYPE; 


--  Launch  Aircraft  Guidance  Mode 
Launch  Aircraft  Lead  Angle 
Launch  Aircraft  Mach 
Launch  Aircraft  Velocity  Vector 
Launch  Aircraft  Position  Vector 
--  Output  Vector 


procedure  SETUP(LAC_GUID  IN:   in  INT_GUIDANCE_TYPE; 
LEADJN, 
LAC_MACH_IN, 
LAC  ALTJN:  in  REAL; 
LAC~TYPl_IN:   in  AIRCRAFT_TYPE)  is 

begin 

LAC_GUID  :=  LAC_GUID_IN;   --  Launch  Aircraft  Guidance  Mode 
LEAD      :=  LEAD_IN;   --  Launch  Aircraft  Lead  Angle  (rad) 
LAC_MACH  :=  LAC_MACH_IN;   --  Launch  Aircraft  Mach 
LAC  POS  NED(3):=  -LAC  ALT  IN;--  Launch  aircraft  altitude  (feet) 
LAC~TYPE:=LAC  TYPE  InJ 

end  SETUP; 


procedure  PUT_STATES( STATES:  in  VECTOR)  is 
begin 

LAC_POS_NED:=STATES(1 . .3); 
end  PUT~STATES; 


function  GET_DERIVATIVES  return  VECTOR  is 
begin 

DERIVATIVES(1..3):=LAC_VEL_NED; 

return  DERIVATIVES; 
end  GET_DERIVATIVES; 


function  GET_STATES  return  VECTOR  is 
begin 

STATE(1 . .3):=LAC_POS_NED; 

return  STATE; 
end  GET_STATES; 


function  LOG_DATA  return  LAUNCHER_LOG_DATA_TYPE  is 
begin 

LOGGED_D AT A .REAL  VALUE ( 1 ) 

LOGGED  DATA.REAL~VALUE(2) 

LOGGED~DATA . REAL~VALUE (3 ) 

return~LOGGED_DATA; 
end  LOG  DATA; 


LAC  POS  NED(1); 

LAC~POS~NED(2); 

-LAC~POS~NED(3); 


function  POLE(I:  in  INTEGER)  return  REAL  is 

TGT_POS_NED  :  SUPER_VECTOR(1 . .3); 

begin 

TGT  POS  NED:=TARGETS.TGT  POS; 

return  MAGNITUDE(TGT_POSJ4ED(I)  -  LAC_POS_NED); 
end  POLE; 


function  LAC_POS  return  VECTOR  is 
begin 

return  LAC_POS_NED; 
end  LAC  POS; 
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procedure  INITIALIZE  is 

VSS:   REAL; 
begin 

VSS:=ENVIRONMENT.SPEED_OF_SOUND<-LAC_POS_NED(3)); 

LAC  VEL_NED(1):=LAC  MACH*VSS*COS(LEAD); 

LACJ/EL  NED(2):=LAC_MACH*VSS*SIN(LEAD); 

LAC  VEL~NED<3):=  0.0; 

LAC_POS_NED(1):=  0.0; 

LAC_POS_NED(2):=  0.0; 
end  INITIALIZE; 


procedure  MSL_INIT(LAC_VEL,LAC_POSITION  :  out  VECTOR;  LAC_GAIN, 

LAC_TRANS_PWR,  LAC_BEAMWIDTH:   out  REAL)  is 
begin 

LACJ/EL :=LAC_VEL_NED; 

LAC_POS I T I ON : =LAC_POS_NED ; 


case  LAC  TYPE  is 

when  F  14  => 

LAC  TRANS  PWR 

:=  32.0; 

-- 

dbw 

LAC  GAIN 

:=  36.5; 

-- 

db 

LAC  BEAMWIDTH 

:=  2.2; 

-- 

deg 

when  F  15  => 

LAC  TRANS  PUR 

:=  26.0; 

-- 

dbw 

LAC  GAIN 

:=  36.0; 

-- 

db 

LAC  BEAMWIDTH 

:=  2.3; 

-- 

deg 

when  F  18  => 

LAC  TRANS  PWR 

:=  25.0; 

-- 

dbw 

LAC  GAIN 

:=  33.0; 

-- 

db 

LAC  BEAMWIDTH 

:=  3.4; 

-- 

deg 

when  others  => 

--  use  for  6dof  comparison 

LAC  TRANS  PWR 

:=  37.0; 

-- 

dbw 

LAC  GAIN 

:=  37.0; 

-- 

db 

--  not  an  actual  value 

wi 1 1  repl 

ace 

once  found 

LAC  BEAMWIDTH 

:=  3.0; 

-- 

deg 

end  case; 

end  MSLJNIT; 

procedure  COMPUTE  is 

DIFF  :  VECTOR(1..3); 

ANGLE       :  REAL; 

LAC_VEL  :  REAL; 

TGT_POS_NED  :  SUPER_VECTOR<1 . .3); 

begin 

if  LAC_GUID  =  PURSUIT  then 

TGT_POS_NED  :=  TARGETS. TGT_POS; 

DIFF:=TGT_POS_NED(1)-LAC_POS  NED; 

ANGLE :=ATAN(DIFF(2)/DIFF(1))7 

LAC_VEL : =MAGN I TUOE ( LAC_VEL_NED ) ; 

LAC~VEL  NED(1):=LAC  VEL*COS( ANGLE ) ; 

LAC~VEL~NED<2):=LAC_VEL*SIN(ANGLE); 
end  if; 
end  COMPUTE; 

end  LAUNCHER ; 


--  Missi le  package 

--  This  package  contains  the  procedure  calls  which  will  initialize, 

--  setup,  compute  and  get  and  put  the  missile  state  vector,  as  well 

--  as  calculating  the  necessary  parameters  to  calculate  the  state 

--  vector. 


145 


with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  MOOEL_TYPES;  use  MODEL_TYPES; 

package  MISSILE  is 

ID  STRING  :  stringd ..30)  :=  "NPS  Missile  Flight  Simulation  "; 
RUNTIME_TITLE  :  stringd . .42)  := 

"     NPS  Simulation  Runtime  Display     "; 
OUTFILE  :  stringd . .30)  :=  "SIM. OUT  "; 

DATFILE  :  stringd . .30)  :=  "SIM. DAT  "; 

MAIN_MENU_TITLE  :  stringd.. 60)  :  = 

"NPS  3-DOF  Missile  Flight  Simulation  Main  Menu  "; 

TITLE_SCREEN_LINE  :  stringd . .60)  := 

"~    NPS  3-DOF  Air-to-Air  Missile  Flight  Simulation       "; 

IS_ACTIVE  :  boolean  :=  true;  --  If  true  this  is  an  active  missile 

procedure  SETUP(LAUNCH_TYPE_IN:      in  LAUNCHER_TYPE; 
RCS:  in  VECTOR; 

TGT1_IR_SIGNATURE:  in  TGT_IR_SIZE_TYPE; 

TGT2_IR_SIGNATURE:  in  TGT  IR_SIZE_TYPE; 


TGT_TWO: 
SOJ_ONE : 
SOJ_TWO: 
ECM  POWER: 
SSJ~ECM_TECH: 
SOJ  ECM  TECH: 


in  YES_NO_TYPE; 

in  YES_NO_TYPE; 

in  YES_NO_TYPE; 

in  VECTOR; 

in  SSJ_ECM_TECHNIQUE; 

in  SOJ_ECM_TECHNIQUE); 


procedure  INITIALIZE; 

procedure  COMPUTE; 

procedure  PUT_STATES(STATE:   in  VECTOR); 

procedure  MANEUVER  VALUE (TURN_ON_PARAMETER:   in  MANEUVER_START_TYPE; 
MANEUVER_START~VALUE:   out  REAL); 

function  GET_DERIVATIVES  return  VECTOR; 

function  GET_STATES  return  VECTOR; 

function  LOG_DATA  return  MSL_LOG_DATA_TYPE; 

function  END_CONDITIONS_MET  return  boolean; 

procedure  TERMINAL_CONDITIONS  (A_POLE_OUT,  MISS_DISTANCE_OUT, 

TIME_OF_FLIGHT,  ALTITUDE,  RDOT:  out  REAL; 
STOP_REASON_OUT :   out  STOP_CONDITION_TYPE); 

end  MISSILE; 

--  Missile  package  body 

--  This  package  contains  the  procedure  calls  which  will  initialize, 
--  setup,  compute  and  get  and  put  the  missile  state  vector,  as  well 
--as  computing  the  necessary  parameters  to  calculate  the  state 
--  vector. 


with  MATH;  use  MATH; 

with  MODEL_TYPES;  use  MOOEL_TYPES; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  LAUNCHER; 

with  TARGETS; 

with  AIRFRAME; 

with  AUTOPILOT; 

with  ENVIRONMENT; 
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With  GUIDANCE ; 
with  INTEGRATION; 
with  KINEMATICS; 
with  RF  SEEKER; 
with  IR~SEEKER; 

package  body  MISSILE  is 


MSL_ACC_NED 

MSL_VEL  NED 

MSL_POS~NED 

LAUNCH  TYPE 

NTGTS 

NSOJS 

TGTTYP 


VECTORO.. 3)  ; 
VECT0RO..3),• 
VECTORO.. 3); 

LAUNCHER_TYPE; 

INTEGER; 

INTEGER; 

INTEGER; 


Missile  acceleration  vector 
Missile  velocity  vector 
Missile  position  vector 


REAL; 
REAL; 
REAL; 
REAL; 
REAL; 
REAL; 


BORE_SIGHT_ERROR:VECTOR(1..4);- 

MSL  DATA 

DERIV 

STATE_OUT 

TGT_VEL_NED 

TGT_POS_NED 

IR_ACQ_RANGE 

ANGLE_OF  ATTACK 

COEF_DRAG 

MSL_MASS 

THRUST 

MSL_VEL 

MSL  HEADING_AZ 

PITCH 

RANGE_VEC_NED 

OMEGA_NED 

TGT  RANGE 

RDOT 

TIME_TO_GO 

RANGE_VEC_BOD 

GMB  ANG_SKR 

MSL~PHASE 

RF  PHASE 

IR_PHASE 

PROPULSION_PHASE 

RADOME_OFF 

F_POLE 

A_POLE 

RANGE  TGT  LAC 


Number  of  targets 

Number  of  active  stand  off  jammers 
Type  of  target  (skin, range  deception,  etc.) 
Bore  sight  errors 
MSL_LOG_DATA_TYPE;  --  Missile  object  output  record 
VECTORO . .6);  --  Derivative  array  vector 
VECT0RO..6);  --  State  variable  output  vector 
VECTORO . .3);   --   Target  velocity  vectors,  ft/sec 
SUPER_VECTOR(1..4);   --   Target  position  vectors,  ft 
REAL;  --  Range  at  which  IR  acquisition  is  enabled 
:  VECTORO.. 3);  --Missile  body  angle  vector 


SUPER_VECTOR(1 
VECTORO.. 3); 
VECTORO.. 4); 
VECTORO.. 2); 
REAL; 
SUPER_VECT0R(1 
VECTORO.. 3);  - 
RF_PHASE_TYPE1; 
RF_PHASE_TYPE2; 
IR  PHASE  TYPE; 
PROPUL_TYPE; 
boo  I ean; 
REAL; 
REAL; 
VECTORO 


Missile  drag  coefficient 
Missi le  mass 
Missi le  thrust,  lbs 
Missi le  velocity,  ft/sec 
Missile  azimuth  heading  angle,  rad 
Missile  pitch  angle,  rad 

4);   --  Missile  to  target  range  vectors 
--  Missile  to  target  LOS  rates 

--  Missile  to  target  ranges,  ft 
--  Missile  to  target  range  rates,  fps 
--  Estimated  time  to  go  in  flight,  sec 
4);  --Missile  to  target  one  range  vector. 
Seeker  gimbal  angle  vector,  rad 

--  Missile  phase  of  flight 
--  Phase  that  RF  is  in 
--  IR  phase 


Radome  off  flag 


.4);  - 


SNR 

MSL_AXIAL_ACC 
OMEGA  SKR 
GUID  PHASE 
ACC  COM_BOD 
ACC~ACH  BOD 
Q 

MSL_MACH 
STOP_REASON 
MISS  DISTANCE, 
MISS~DISTANCE  : 
RDOT~OLD 
TIME~TO  GO_OLD: 
ALTITUDE  OLD   : 


REAL;  -- 
REAL;  -- 
VECTORO. 


NED 


Range  from  the  targets  to  the 
launch  aircraft 
Signal  to  noise  ratio,  dB 
Missile  axial  acceleration  in  body  axis 
.3);  --  Missile  to  targets  LOS  rate  vectors 
GUIDANCE_PHASE_TYPE;  --  Guidance  phase 
VECTOR(2..3);   --  Commanded  acceleration  vector 
VECTORO.. 3);   --  Achieved  acceleration  vector-  body 
REAL;         --  Dynamic  pressure 
REAL; 

STOP  CONDITION_TYPE;  --  Reason  simulation  stopped 
VECTOR (1..3); 
REAL; 

REAL;    --  Range  rate  value  from  prior  pass 
REAL; 
REAL; 


procedure  SETUP(LAUNCH_TYPE  IN: 
RCS: 

TGT1_IR_SIGNATURE: 
TGT2  IR  SIGNATURE: 
TGT  "fwX): 
SOJ~ONE: 
S0J_TWO: 
ECM~POWER: 
SSJ~ECM  TECH: 


in  LAUNCHER_TYPE; 

in  VECTOR; 

in  TGT  IR_SIZE_TYPE; 

in  TGTJR_SIZE_TYPE; 

in  YES  NO_TYPE; 

in  YES_NO_TYPE; 

in  YES_NO_TYPE; 

in  VECTOR; 

in  SSJ_ECM_TECHNIQUE; 
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SOJ  ECM  TECH:  in  SOJ_ECM_TECHNIQUE)   is 

TEMP_ECM_POWER:  ~VECTOR(1 . .4); 

begin 

LAUNCH_TYPE:=LAUNCH  TYPEJN; 
TEMP_ECM_POWER :=ECM~POWER; 
if  TGT  TWO  =  NO  then 

NTGTS:=1; 
else 

NTGTS:=2; 
end  if; 
if  SOJ_ONE  =  NO  and  SOJ_TWO  =  NO  then 

NSOJS:=0; 
elsif  SOJ_ONE  =  YES  and  SOJ_TWO  =  NO  then 

NS0JST=1; 
elsif  SOJ_ONE  =  NO  and  SOJ_TWO  =  YES  then 

NSOJS:=1; 

TEMP_ECM_POWER<3):=TEMP_ECM_POWER(4); 
elsif  SOJJDNE  =  YES  and  SOJ_TUO  =  YES  then 

NSOJS:=3; 
end  if; 
RF  SEEKER. SETUP(NTGTS,NSOJS,RCS,TEMP_ECM_POWER,SSJ_ECM_TECH, 

SOJ_ECM  TECH); 
IR  SEEKER. SETUP(TGT1_IR  "SIGNATURE,TGT2_IR_SIGNATURE); 
KINEMATICS. SETUP(NTGTS,NSOJS); 
end  SETUP; 


procedure  INITIALIZE  is 

GAIN  :       REAL; 

POWER  :       REAL; 

BEAMWIDTH  :       REAL; 

begin 

MSL  MASS : =400.0 ; 

COEF_DRAG:=0.75; 

THRUST:=0.0; 

ANGLE_OF_ATTACK:=(0. 0,0. 0,0.0); 

ACC_ACH_BCO  :=  (0.0,0.0,0.0); 

PITCH  :=  0.0; 

MSL_PHASE:=MIDCOURSE; 

RF_PHASE:=NON_ACTIVE; 

IR_PHASE:=NON_ACTIVE; 

PROPULS I ON_PHASE : =COAST ; 

RADOME_OFF:=false; 

Q:=2600.0; 

IS_ACTIVE:=FALSE; 

for  I  in  1..4  loop 

RANGE_TGT   LAC(I ):=LAUNCHER.POLE(I); 
TGT_RANGEl  I ) :=RANGE_TGT_LAC( I ); 

end  loop; 

A  POLE:=RANGE  TGT  LAC(1); 

SNR:=1.0; 

TIME_TO_GO:=500.0; 

TARGETS  TtGT_DATA( TGT_VEL_NED , TGT_POS_NED ) ; 

LAUNCHER. MSL  INIT(MSL  VEL  NED, MSL_POS_NED, GAIN, POWER, 

BEAMWIDTH); 

GUIDANCE. INITIALIZEC-MSL  POS  NED(3),-TGT  POS_NED(1)(3), 
TGT  POS  NED(1),TGT  VEL_NED); 

AIRFRAME. INITIALIZE; 

AUTOPILOT. INITIALIZE; 

RF_SEEKER.INITIALIZE(GAIN, POWER, BEAMWIDTH); 

IR_SEEKER.INITIALIZE(-TGT_POS_NED(1)(3),-MSL_POS_NED(3),IR_ACQ_RANGE); 

MSL  HEADING  AZ:=ATAN(MSL_VEL_NED(2)/MSL_VEL_NED(1 )); 

if  LAUNCH_TYPE  =  EJECT  then 

MSL_VEL_NED(3):=MSL_VEL_NED(3)+20.0; 

end  if; 
end  INITIALIZE; 
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EIB 

MATRIX<1..3,1..3) 

EIS 

MATRIX(1..3,1..3) 

EBI 

MATRIX(1..3,1..3) 

THETA  SKR 

REAL; 

PS I  SKR 

REAL; 

procedure  COMPUTE  is 

--  Inert ial  to  body  direction  cos  mat. 

--  Inertial  to  seeker  dir.  cos  matrix 

--  Transform  of  EIB 

--  Seeker  pitch  angle,  rad 

--  Seeker  yaw  angle,  rad 

begin  --  COMPUTE 

T I ME_TO_GO_OLD : =T I ME_T0_GO; 
RD0T_0LD:=RD0T(1); 

TARGETS. TGT_DATA(TGT_VEL  NED,TGT_P0S_NED); 

KINEMATICS. C0MPUTE(MSL_P6s_NED,MSL_VEL_NED,TGT_VEL_NED, 

TGT  POS  NED, RANGE_VEC_NEO, OMEGA  NED,TGT_RANGE,RDOT, 
MISS_DISTANCE_NED,TIME_TO_GO,MISS_DISTANCE); 

for  I  in  1..NTGTS  loop 

RANGE_TGT_LAC( I ) : =LAUNCHER . POLE ( I ) ; 
end  loop; 

for  I  in  1..  NSOJS  loop 

RANGE_TGT_LAC(I+2):=LAUNCHER.P0LE(I+2); 
end  loop; 

RF_SEEKER.DETECTION(TGT_RANGE,RANGE_TGT_LAC,RF_PHASE,SNR, 
TGTTYP , BORE_SI GHT_ERROR ) ; 

case  RF  PHASE  is 

when  K_BANO_ACOUISITION  => 
if  not  Ts_ACTIVE  then 

A_POLE : =RANGE_TGT_LAC< 1 ) ; 
IS_ACTIVE:=true; 
end  if; 
when  others  => 
null; 
end  case; 

if  TGT  RANGE(1)  <  IR_ACQ  RANGE  then 

RADOME  OFF:=TRUE; 

IR_SEEKER.DETECTI0N(TGT_RANGE(1),IR_PHASE); 
end  if; 

KINEMATICS. DIR_C0S((MSL_HEADING_AZ+ANGLE_0F_ATTACK(3)), PITCH, EIB); 

for  I  in  1..NTGTS  loop 

RANGE_VEC_B00( I ) :=EIB*RANGE_VEC_NEO( I ); 
end  loop; 

for  I  in  1.. NSOJS  loop 

RANGE_VEC_BOO  < I +2 ) : =E I B*RANGE_VEC_NED ( I +2 ) ; 
end  loop; 

RF_SEEKER.GIMBAL(RANGE_VEC_BOO,GMB_ANG_SKR); 

PSI_SKR:=ANGLE_0F_ATTACK(3)+MSL_HEADING_AZ+GMB_ANG_SKR(3); 

THETA  SKR:=PITCH+GMB  ANG  SKR(2); 

KINEMATICS. DIR  COS(PSI  SKR, THETA  SKR, EIS); 

OMEGA_SKR : =E I S*OMEGA_NED ; 

GUIDANCE. COMPUTE(TIME_TO_GO,-MSL_POS_NED(3),-MSL_VEL_NED(3), 

MSL  VEL.ACC  ACH  BOD(1 ), PITCH, TGT_RANGE(1 ),RD0T(1 ), 

GMB~ANG_SKR7oMEGA  SKR , GU I D_PHASE , ACC_COM_BOD ) ; 
AUTOPILOT.COMPUTE(ACC~COM  BOO.ACC  ACH  B00(2..3)); 
AUTOP I  LOT . UPDATE_D  I F F~  EOS"' 

KINEMATICS.MACH  N0(-MSL_P0S_NED(3),MSL_VEL_NED,MSL_MACH); 
AIRFRAME. THRUST(MSL  MASS, THRUST, PROPULSION_PHASE); 
AIRFRAME. AERO(MSL  MACH,Q,RADOME_OFF, 

COEF_DRAG,ANGLE_OF  ATTACK); 
KINEMATICS. EOM(MSL_POS_NED,MSL~VeI_NED,ANGLE_OF_ATTACK, 
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C0EF_DRAG,MSL_MASS,THRUST,ACC_ACH_B0D(1), 
MSL_VEL,MSL  HEADING_AZ, PITCH, Q);  " 

EBI  :=  TRANSPOSED  IB); 

MSL  ACC  NED  :=  EBI  *  ACC  ACH_B0D; 

MSL~ACC~NED(3)  :=  MSL_ACC_NED(3)  +  G; 
end  COMPUTE; 


procedure  PUT_STATES( STATE:   in  VECTOR)  is 
begin 

ALTITUDE_OLD:=-MSL_POS_NED(3); 

MSLJ/EL  NED:=STATE(1..3); 

MSL_POS~NED:=STATE(4. .6); 
end  PUT  STATES; 


procedure  MANEUVER  VALUE (TURN  ON  PARAMETER:   in  MANEUVER_START_TYPE; 

MANEUVER_START~VALUE :   out  REAL)  is 
begin 

if  TURN_ON_PARAMETER  =  FLIGHT_TIME  then 

MANEUVER_START_VALUE : =ENV I RONMENT . T  ime; 
elsif  TURN_ON_PARAMETER  =  TIME_REMAINING  then 

MANEUVER_START_VALUE:=TIME  TO  GO; 
elsif  TURN_ON_PARAMETER  =  RANGE_TO_GO  then 

MANEUVER_START_VALUE:=TGT_RANGE(1)  /  FEET_PER_NMI ; 
end  if; 
end  MANEUVER_VALUE; 


function  GET_DERIVATIVES  return  VECTOR  is 
begin 

DERIV(1 . .3) :=MSL_ACC_NED; 

0ERIV(4..6):=MSL~VEL_NED; 

return  DERIV; 
end  GET_DERIVATIVES; 


function  GET_STATES  return  VECTOR  is 
begin 

STATE  OUT(1..3):=MSL_VEL_NED; 

STATE~OUT(4..6):=MSL_POS_NED; 

return  STATE  OUT; 
end  GET_STATES; 


function  LOG_DATA  return  MSL_LOG_DATA_TYPE  is 
begin 

MSL  DATA.REAL_VALUE(1):=  MSL_POS_NED(1 ); 

MSL~DATA.REAL  VALUE(2):=  MSL  POS  NED(2); 

MSL~DATA.REAL_VALUE(3):=-MSL_POS~NED(3); 

MSL_DATA . REAL_VALUE (4 ) : =RANGE_TGT_LAC( 1 ) ; 

MSL_DATA.REAL_VALUE(5):=MSL_VEL; 

MSL~DATA . REAL~VALUE ( 6 ) : =MSL_HEAD I NG_AZ*RAD_TO_DEG ; 

MSL~DATA.REAL  VALUE(7):=PITCH*RAD_TO_DEG; 

MSL~0ATA.REAL~VALUE(8):=MSL_MACH; 

MSL~DATA.REAL  VALUE(9):=TGT_RANGE(1 ); 

MSL~DATA.REAL~VALUE(10):=R0OT(1); 

MSL~DATA.REAL~VALUE(11):=TIME  TO  GO; 

MSL_OATA.REAL_VALUE( 12. . 14) :=GMB~ANG_SKR*RAD_TO_DEG; 

MSL~DATA.REAL~VALUE<15. .16):=OMEGA_SKR(2. .3)*RAD_TO  DEG; 

MSL  DATA. REAL  VALUE(17):=-MSL  VEL_NED(3); 

MSL~DATA.REAL~VALUE(18..19):=ACC  COM  BOO; 

MSL~DATA.REAL~VALUE(20..22):=ACC~ACH~BOO; 

MSL_DATA.REAL~VALUE(23):=MSL_MASS; 

MSL  DATA. REAL  VALUE (24): =THRUST ; 

MSL~DATA.REAL~VALUE(25..27):=ANGLE  OF_ATTACK*RAD  TO_DEG; 

MSL~DATA . REAL~VALUE ( 28 ) : =SNR ; 

MSL_DATA.REAL  VALUE(29):=C0EF_DRAG; 

MSL  DATA. REAL- VALUE(30) :=REAL(TGTTYP); 
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MSL  DATA. REAL  VALUE(31 . .34):=BORE_SIGHT_ERROR; 
MSL "DATA. GUI DANCE  PHASE  :=  GUID_PHASE; 
MSL~DATA.RF  PHASEJ  :=  MSL_PHASE; 
MSL_DATA.RF~PHASE_2  :=  RF_PHASE; 
MSL_DATA.IR  PHASE  :=  IR_PHASE; 
MSL  DATA.RADOME_OFF  :=  RADOME_OFF; 
MSL_DATA.PROPULSION_PHASE  :=  PROPULSION_PHASE; 
return  MSL_DATA; 
end  LOG_DATA; 


function  END_CONDITIONS_MET  return  boolean  is 
begin 

if  abs(GMB_ANG_SKR(2))  >=0. 95993  then        --  Azimuth  gimbal  angle 

STOP_RE ASON : =E L_G I MBAL ; 

return  true; 
elsif  abs(GMB_ANG_SKR<3))  >=  0.95993  then     --  Elevation  gimbal  angle 

STOP_REASON : =AZ_G I MBAL ; 

return  true; 
elsif  abs(GMB_ANG  SKR(D)  >=  0.95993  then     --  Total  gimbal  angle 

STOP_REASON : =TOT AL_G I MBAL ; 

return  true; 
elsif  ENVIRONMENT. TIME  >  7.0  and  RD0T(1)  >=  0.0  then 

if  MAGNITUDE(MSL_POS_NED)  >=  MAGNITUDE(TGT_P0S_NED(1 ))  then 
STOP_REASON : CROSSOVER; 

else 

STOP_REASON : =RANGE_RATE; 

end  if; 

return  true; 
elsif  -MSL_POS_NED<3)  <=  0.0  then  --  Altitude 

STOP_REASON : =H I T_GROUND ; 

return  true; 
elsif  ENVIRONMENT. TIME  >=  500.0  then 

STOP_REASON : =MAX_T I ME_OF_FL I GHT ; 

return  true; 
else 

return  false; 
end  if; 
end  END_CONDITIONS_MET; 


procedure  TERMINAL  CONDITIONS  (A_POLE_OUT,  MISS_DISTANCE_OUT, 

TIME  OF_FLIGHT,  ALTITUDE,  RDOT:  out  REAL; 
STOP_REASON_OUT:  out  STOP_C0NDITI0N_TYPE)  is 
TEMP:  REAL; 
begin 

A_POLE_OUT  :=  A_POLE; 
RDOT:=RDOT_OLD; 

STOP_REASON_OUT  :=  STOP_REASON; 
if  STOP_REASON  =  CROSSOVER  then 

M I SS_D I  ST ANCE_OUT : =M I SS_D I  STANCE ; 

TIME  OF  FLIGHT ^ENVIRONMENT. TIME- INTEGRATION. STEP  SIZE* 

TIME_TO_GO_OLD; 
ALTITUDE :=ALT I TUDE  OLD+((-MSL_POS_NED(3)-ALTITUDE_OLD)* 
T I ME_TO_GO_OLD/ 1 NTEGRAT I  ON . STEP_S I ZE ) ; 
else 

MISS  DISTANCE_OUT:=TGT_RANGE(1); 
TIME~OF  FLIGHT:=ENVIRONMENT.TIME; 
ALTITU0E:=-MSL_POS_NED(3); 
end  if; 
end  TERMINAL_CONDITIONS; 


end  MISSILE; 


Airframe  procedures 

These  procedures  consist  of  routines  for  the  aero 
and  thrust  models. 
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with  MATH;  use  MATH; 

with  MOOEL_TYPES;  use  MODEL_TYPES; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

package  AIRFRAME  is 

procedure  INITIALIZE; 

procedure  AERO(MSL  MACH.Q:  in  REAL; 

RADOME_OFF:  in  boolean; 

COEF  DRAG:  in  out  REAL; 

ANGLE_OF_ATTACK_OUT:  out  VECTOR); 

procedure  THRUST (MSL_MASS, THRUST:  out  REAL; 

PROPULSION_PHASE_OUT:   out  PROPUL_TYPE); 

end  AIRFRAME; 


--  Airframe  procedures 

--  These  procedures  consist  of  routines  for  the  aero  and 
--  thrust  models. 


with  MATH;  use  MATH; 

with  MOOEL_TYPES;  use  MODEL_TYPES; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  ENVIRONMENT; 

with  INTEGRATION; 

with  AUTOPILOT; 

package  body  AIRFRAME  is 

TIME_BOOSTER:  constant  :=  4.00; 

T  BOOST  INIT:  constant  :=  0.0;  --1.0;--  time  before  booster  ignited 

MSL  MASS_DRY:  constant  :=  300.0; 

ROCKET_MASS_INIT:  constant  :=  100.0; 

PROPULSION_PHASE:  PROPUL  TYPE; 

ACC  ACH:   VECTOR(2. .3);" 

BOOST_FUEL_RATE,  EXP_DECAY:  real; 

MSL  MASS,  ROCKET_MASS:  real; 

ANGLE  OF  ATTACK:   VECTOR<1 . .3); 


procedure  INITIALIZE  is 
begin 

MSL_MASS  :=  MSL_MASS_DRY  +  ROCKET_MASS_INIT; 

PROPULSION  PHASf  :=  COAST;    --initial  coast  before  booster  ignition 

BOOST  FUEL~RATE  :=  ROCKET_MASS  INIT/(REAL( INTEGER 

((TIME  BOOSTER/ INTEGRATION. STEP_SIZE)  +  0.5))  *  INTEGRATION.STEP_SIZE); 
end  INITIALIZE; 


procedure  AERO(MSL_MACH,Q:  in  REAL; 

RADOMEJDFF:  in  boolean; 

COEF  DRAG:  in  out  REAL; 

ANGLE_OF_ATTACK_OUT:         out  VECTOR)   is 

CD_ZERO,CD_INDUCED,AOA_ALPHA, 
AOA_BETA,AOA_TOTAL:  REAL; 

begin 

--  compute  AOA 

ACC  ACH  :=  AUTOPILOT. ACCELERATIONS; 
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AOA  ALPHA  :=  -2.09  *  ACC_ACH(3)  /  Q; 
if  abs(AOA_ALPHA)  >  0.5236  then 

AOA_ALPHA  :=  SIGN(AOA_ALPHA)  *  0.5236; 
end  if; 

AOA_BETA  :=  2.09  *  ACC_ACH(2)  /  Q; 
if  abs(AOA_BETA)  >  0.5236  then 

AOA_BETA  :=  SIGN(AOA_BETA)  *  0.5236; 
end  if; 
AOA_TOTAL  :=  SQRT(AOA_ALPHA  *  AOA_ALPHA  +  AOA_BETA  *  AOA_BETA); 


ANGLE_OF_ATTACK(1) 
ANGLE_OF  ATTACKC2) 
ANGLE  OF  ATTACK(3) 


AOA_TOTAL; 
=  AOA_ALPHA; 
=  AOA_BETA; 


ANGLE_OF_ATTACK_OUT  :=  ANGLE_OF_ATTACK; 

--  compute  drag  coefficient 
if  MSL_MACH  <  1.2  then 

CD  ZERO  :=  0.75  *  MSL_MACH  -  0.02; 
elsif  MSL_MACH  >=  1.2  and  MSL_MACH  <  1.8  then 

CD_ZER0  :=  2.346  -  MSL_MACH  *  ((1.346-0.253  *  MSL_MACH)  *  MSL_MACH -2.472 ); 
else 

CO_ZERO  :=  1.3  *  EXP( -0.287  *  MSL_MACH); 
end  if; 

--10%  increase  after  IR  dome  is  removed 
if  RADOME  OFF  then 

CD_ZERO  :=  1.1  *  CD_ZERO; 
end  if; 

CD  INDUCED  :=  7.0  *  (AOA_TOTAL**2); 
COEF  DRAG  :=  0.97  *  CD_ZERO  +  CD_INDUCED; 


end  AERO; 


procedure  THRUST(MSL_MASS, THRUST:  out  REAL; 

PROPULSION_PHASE_OUT:   out  PROPUL_TYPE)   is 

THRUST_BOOST:  constant  :=  11000.0; 

begin 

if  ENVIRONMENT. Time  <  T_BOOST_INIT  then 

PROPULSION_PHASE  :=  COAST; 

THRUST  :=  0.0; 

MSL_MASS  :=  MSL_MASS_DRY  +  ROCKET_MASS; 
elsif  ENVIRONMENT. Time  <=  TIME_BOOSTER  +  T  BOOSTJNIT  then 

PROPULSION  PHASE  :=  BOOST; 

THRUST  :=  THRUST_BOOST  *  TIME_BOOSTER/(REAL(INTEGER((TIME_BOOSTER/ 
INTEGRATION.STEP_SIZE)  -  0.5))  *  INTEGRATION.STEP_SIZE); 

ROCKET_MASS  :=  ROCKET_MASS_INIT  -  BOOST_FUEL_RATE  *  ENVIRONMENT. TIME; 

MSL  MASS  :=  MSL  MASS_DRY  +  ROCKET_MASS; 
elsif  ENVIRONMENT. Tfrne  >  TIME_BOOSTER  +  T_BOOST_INIT  then 

MSL  MASS  :=  MSL_MASS_DRY; 

PROPULSION_PHASE  :=  COAST; 

THRUST  :=  0.0; 
end  if; 

PROPULSION  PHASE_OUT  :=  PROPULSION_PHASE; 
end  THRUST; 

end  AIRFRAME; 

--  Autopilot  Specification 

--  These  procedures  consist  of  routines  for  modelling  the  autopilot. 


with  MATH;  use  MATH; 

with  MODEL_TYPES;  use  MODEL_TYPES; 

with  REAL  MATRIX;  use  REAL_MATRIX; 
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package  AUTOPILOT  is 

procedure  INITIALIZE; 

procedure  UPDATE_DIFF_EQS; 

procedure  COMPUTE (ACC_COMMANDED:  in  VECTOR;  ACC_ACHIEVED:  out  VECTOR); 

function  ACCELERATIONS  return  VECTOR; 
end  AUTOPILOT; 

--  Autopilot  Package 

--  These  procedures  consist  of  routines  for  modelling  the  autopilot. 


with  HATH;  use  MATH; 

with  MOOEL_TYPES;  use  MODEL_TYPES; 

with  ENVIRONMENT; 

with  INTEGRATION; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

package  body  AUTOPILOT  is 

AP_NAT_FREQ  :  constant  :=  0.80;  --  Hertz 

AP_DAMP_RATIO  :  constant  :=  0.75; 

AP  C1,  AP_C2,  AP_C3  :  REAL; 

ACC_COM,  ACC  ACH,  ACC_ACH  2  :  VECTOR(2. .3); 


procedure  INITIALIZE  is 

begin 

AP  C1  :=  2.0  *  EXP(-AP_DAMP_RATIO  *  AP_NAT_FREQ  *  2.0  *  PI  * 
INTEGRATION.STEP_SIZE)  *  COS(AP_NAT_FREQ  *  2.0  *  PI  * 
INTEGRATION.STEP_SIZE  *  SORT (1.0  -  AP_DAMP_RAT 10**2)); 

AP_C2  :=  -EXP(-2.0  *  AP_DAMP_RATIO  *  AP  NAT  FREQ  *  2.0  *  PI  * 
"  INTEGRATION.STEP_SIZE); 


AP  C3  :=  1.0  -  AP  C1  -  AP  C2; 
ACC_ACH   :=  (0.070.0); 
ACC_ACH  2  :=  (0.0,0.0); 
end  INITIALIZE; 


procedure  UPDATE_DIFF_EQS  is 
begin 

ACC_ACH(2)  :=  AP_C1*ACC_ACH(2)  +  AP_C2*ACC_ACH_2(2)  +  AP_C3*ACC_COM(2); 

ACC  ACH(3)  :=  AP  C1*ACC  ACH(3)  +  AP  C2*ACC  ACH  2(3)  +  AP_C3*ACC_COM(3); 

ACC~ACH  2:=ACC  ACH; 
end  UPDATE  DIFF_EQS; 


procedure  COMPUTE (ACC_COMMANDED:  in  VECTOR;  ACC_ACHIEVED:  out  VECTOR)  is 
begin 

ACC  COM:=ACC  COMMANDED; 

ACC"aCHIEVEDT=ACC  ACH; 
end  COMPUTE; 


function  ACCELERATIONS  return  VECTOR  is 
begin 

return  ACC_ACH; 
end  ACCELERATIONS; 

end  AUTOPILOT; 
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--  RF  Seeker  package 

--  This  package  is  the  governing  routine  which  estimates  RF 

--  acquistion  times.  Seeker  calculates  a  missile  seeker  gimbal  angles. 

--  It  will  be  assumed  that  the  antenna  point  directly  along  the  LOS  vector. 


with  MATH;  use  MATH; 

with  MODEl_TYPES;  use  MODEL_TYPES; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

package  RF_SEEKER  is 

procedure  SETUP(NUM_OF_TGTS_INIT, 
NUM_OF_SOJS_INIT: 
RCSJNIT: 
ECM_POWER_INIT: 
SSJ_ECM_TECH_INIT: 
SO J  ECM  TECH  INIT: 


in  INTEGER; 
in  VECTOR; 
in  VECTOR; 

in  SSJ_ECM_TECHNIQUE; 
in  SOJ_ECM_TECHNIQUE); 


procedure  INITIALIZE(LAC_GAIN_IN, 

LAC_TRANS_PWR_IN, 
LAC  BEAMUIDTH  IN: 


in  REAL); 


procedure  G I MBAL ( RANGE_VEC_BO0_I N I T : 

GIMBAL_ANGLE   :  in  out 

procedure  DETECTION(TGT_RANGE_IN, 

RANGE  TGT  LACJN:    in 
RF_PHASE  OUT:"         out 
SNR_OUT:~  out 

TGTTYPJXJT:  out 

BSE  OUT:  out 


in  SUPERJ/ECTOR; 
VECTORS- 


VECTOR; 

RF_PHASE_TYPE2; 
REAL; 
INTEGER; 


VECTOR); 


end  RF_SEEKER; 


--  RF_Seeker  package 

--  This  package  is  the  governing  routine  which  estimates  RF 

--  acquistion  times.  Seeker  calculates  a  missile  rf  seeker  gimbal  angles. 

--  It  will  be  assumed  that  the  antenna  points  directly  along  the  LOS  vector. 


with  MATH;  use  MATH; 
with  MODEL_TYPES;  use  MODEL_TYPES; 
with  REAL  MATRIX;  use  REAL  MATRIX; 
with  ENVIRONMENT; 

package  body  RF_SEEKER  is 


RF  PHASE 

RF  PHASE  TYPE2; 

LAC  TYPE 

AIRCRAFT  TYPE; 

SEL  TGT 

GUIO  SELECTION  TYPE; 

SSJ  ECM  TECH 

SSJ  ECM  TECHNIQUE; 

SOJ  ECM  TECH 

SOJ  ECM  TECHNIQUE; 

RCS 

VECTOR<1..2); 

ECM  POWER 

VECTOR(1..4); 

SNR 

REAL 

K  ACQ  TIME 

REAL 

X  ACQ  TIME 

REAL, 

LAC  TRANS  PWR 

REAL 

LAC  GAIN 

REAL 

LAC  BEAMUIDTH 

REAL 

TGT  RANGE 

VECTOR(1..4); 

RANGE  TGT  LAC 

VECTC 

RC1..4); 
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NUM_OF_TGTS  :  INTEGER; 


NUM_0F_SOJS 

RANGE_VEC  BOO 

SELTGT 

TGTTYP 

BSE 

TGT_POWER 

REPEAT_POWER 

NOISE  POWER 


INTEGER; 

SUPER  VECTOR(1, 

INTEGER; 

INTEGER; 

VECTOR(1..4); 

VECTOR(1..2); 
VECT0RO..2); 
VECT0RO..4); 


M; 


procedure  SETUP(NUM_OF_TGTS_INIT, 
NUM_OF_SOJS  INIT: 
RCSJNIT: 
ECM  POWER_INIT: 
SSJ~ECM  TECH  INIT: 
SO  J  ECM  TECH"  INIT 


in  INTEGER; 
in  VECTOR; 
in  VECTOR; 

in  SSJ_ECM_TECHNIQUE; 
in  SOJ  ECM  TECHNIQUE)  is 


begin 

RCS  :=  RCSJNIT; 

SSJ_ECM_TECH  :=  SSJ_ECM_TECH  INIT; 

SOJ~ECM_TECH  :=  SOJ_ECM_TECHJNIT; 

ECM_POWER  :=  ECM_POWER_INIT; 

NUM_OF  TGTS  :=  NUM_OF_TGTS_INIT; 

NUM_OF_SOJS  :=  NUM  OF_SOJS  INIT; 
end  SETUP; 


procedure  INITIALIZE(LAC_GAIN  IN,  LAC  TRANS  PUR  IN, 
LAC_BEAMWIDTH_IN":   in~REAf)  is 
begin 

K  ACQ  TIME:=  -10.0; 

X~ACQ~TIME:=  -10.0; 

SNR:=  -H0.0; 

RF  PHASE :=  NON_ACTIVE; 

L AC_GA I N : =LAC_GA I N_I N ; 

L AC~T  R AN  S_PWR : =  L AC_T  R AN  S_PUR_ I N ; 

LAC_BEAMWIDTH:=LAC_BEAMWIDTH  IN; 

TGT_POWER  :=  (-200.0,-200.0); 

REPEAT_POWER  :=  (-200.0,-200.0); 

NOISE_POWER  :=  (-200.0,-200.0,-200.0,-200.0); 

SELTGT :=  0; 

TGTTYP:=  0; 

BSE  :=  (0.0,0.0,0.0,0.0); 
end  INITIALIZE; 


procedure  GIMBAL(RANGE_VEC_BOO_INIT  :  in  SUPER_VECTOR; 
GIMBAL_ANGLE  7  in  out  VECTOR )~is 

begin 

RANGE  VEC  BOO:=  RANGE  VEC  BOD  INIT; 
if  SELTGT~=  0  then 

SELTGT  :=  1; 
end  if; 

if  RANGE  VEC_BOO( SELTGT )(1)  =0.0  then 

GIMBAL_ANGLE(3)  :=  ATAN(RANGE_VEC_BOD(SELTGT)(2)/ 

RANGE  VEC  BOO(SELTGT)(3)); 
GIMBAL_ANGLE(2)  :=  ATA"N(-RANGE  VEC_BO0(SELTGT)(3)/0.001 ); 
GIMBAL_ANGLE(1)  :=  ACOS(COS(GIMBAL_ANGLE(2))*COS(GIMBAL_ANGLE(3))); 
else 

GIMBAL  ANGLE(3)  :=  ATAN(RANGE_VEC_BOD(SELTGT)(2)/ 

SQRT(RANGE_VEC_BOD(SEItGT~)(1)**2+RANGE_VEC_BOO(SELTGT)(3)**2)); 
GIMBAL_ANGLE(2)  :=  ATAN(-RANGE  VEC_BOD(SELTGT)(3)/ 

RANGE_VEC_BOO(SELTGT)(D); 
GIMBAL_ANGLE(1)  :=  ACOS(COS(GIMBAL_ANGLE(2))*COS(GIMBAL_ANGLE(3))); 
end  if; 
end  GIMBAL; 
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procedure  BORESIGHT_ERROK  is 
begin 

BSE(SELTGT)  :=  GAUSSIAN(0. 0,0.1); 
for  I  in  SELTGT+1..NUM  0F_TGTS  loop 
if  RANGE_VEC_BOD(I)(1)  =  0.0  then 

BSE(I)  :=  0.0; 
else 

BSE(I)  :=  ACOS(DOT_PROOUCT(RANGE_VEC_BOO(SELTGT),RANGE_VEC_BOO(I))/ 
(MAGNITUDE (RANGE  VEC_BOO(SELTGT))* 
MAGNITUDE(RANGE_VEC_BOO(I)))); 
end  if; 
end  loop; 

--  Calculate  the  boresight  error  targets  less  than  the  selected  target 
for  I  in  1..SELTGT-1  loop 

if  RANGE_VEC_BCO(I)(1)  =0.0  then 

BSE(I)  :=  0.0; 
else 

BSE ( I )  : =  ACOS(DOT_PRCOUCT ( RANGE_VEC_B00 ( SELTGT ) , RANGE_VEC_BOD ( I ) )/ 
(MAGNITUOE(RANGE_VEC_BOO(SELTGT))* 
MAGNITUDE(RANGE_VEC_BOD(I)))); 
end  if; 
end  loop; 

for  I  in  SELTGT+1..NUM_OF_SOJS  loop 
if  RANGE  VEC  B00(I)(1)  =  0.0  then 

BSE(T)  :=  0.0; 
else 

BSE(I)  :=  ACOS(DOT_PROOUCT(RANGE_VEC_BOO(SELTGT),RANGE_VEC_BOO(I))/ 
(MAGNITUOE(RANGE_VEC_BOO(SELTGT))* 
MAGNITUOE(RANGE_VEC_BOD(I)))); 
end  if; 
end  loop; 

--  Calculate  the  boresight  error  targets  less  than  the  selected  target 
for  I  in  1.. SELTGT- 1  loop 

if  RANGE  VEC_B00(I)(1)  =  0.0  then 

BSE(T)  :=  0.0; 
else 

BSE(I)  :=  ACOS(DOT  PROOUCT(RANGE_VEC  BOO(SELTGT), 

RANGE  ~VEC_BCO( 1+1 ))/(MAGNITUDE(RANGE_VEC_BOD(SELTGT))* 
MAGNITUDE(RANGE_VEC_B0D(I+1)))); 
end  if; 
end  loop; 
end  BORESIGHT_ERROR; 

procedure  MSL_ANT  GAINS  SA  (BSE:  in  REAL;  SUM_GAIN,DELTA_GAIN:  out  REAL)  is 
ABS  BSE:  REAL; 
S1:~     REAL; 

begin 

ABS_BSE  :=  ABS(BSE); 
if  ABS_BSE  <=  38.0  then 

S1  :=  35.0*((ABS(COS(BSE*ABS_BSE)))**0.7)-13.0; 
if  ABS  BSE  >  30.0  then 

S1  7=  S1+  (ABS_BSE-30.0)*0.625; 
end  if; 
else 

S1:=14.6*EXP(-(ABS_BSE-38.0)/30.0)-25.0; 
end  if; 
SUM_GAIN:=S1; 
if  ABS_BSE  >=  20.0  then 

DELTA_GAIN:=31.0*SQRT(SIN(ABS_BSE*7.66))-13.0; 
else 

DELTA_GAIN:=7. 82+25. 0*EXP(-(ABS_BSE-20.0)/30.0)-25.0; 
end  if; 
end  MSL_ANT_GAINS_SA; 
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procedure  MSL_ANT_GAINS  A  (BSE:  in  REAL;  SUN  GAIN, DELTA  GAIN:  out  REAL)  is 
ABS_BSE:  REAL; 
S1:~     REAL; 

begin 

ABS_BSE  :=  ABS(BSE); 
if  ABS_BSE  <=  38.0  then 

Sf :=  46.0*((ABS(COS(BSE*ABS_BSE)))**0.7)-13.0; 
if  ABS  BSE  >  30.0  then 

Sf :=  S1  +  (ABS_BSE-30.0)*0.625; 
end  if; 
else 

S1:=14.6*EXP(-(ABS_BSE-38.0)/30.0)-25.0; 
end  if; 
SUM_GAIN:=S1; 
if  ABS  BSE  >=  20.0  then 

DELTA_GAIN:=31.0*SQRT(SIN(ABS_BSE*7.66))-13.0; 
else 

DELTA_GAIN:=7. 82+25. 0*EXP(-(ABS_BSE-20.0)/30.0)-25.0; 
end  if; 
end  MSL_ANT_GAINS_A; 

procedure  SA_POWERS  is 

LOOP_GAIN,  ERPD,  MSL_GAIN,  DELTA_GAIN  :  REAL; 

begin 

for  I  in  1..NUM_OF_TGTS  loop 

MSL  ANT  GAINS_SA(BSE(I),HSL_GAIN,DELTA_GAIN); 

TGT~POUER(I)  :~=  -53.0+  LAC  TRANS_PWR+LAC_GAIN+MSL_GAIN+10.0*log(RCS(I )) 
-20.0* log (RANGE  TGT_LAC(I))  " 
-20.0*log(TGT_RANGE(I)); 
case  SSJ  ECM_TECH(I)  is 
when  REPEATER  => 

L0OP_GAIN  :=  ECM  POWER(I); 

REPEAT  POWER(I)  7=  -84.0  +  LAC_TRANS_PWR  +  LAC_GAIN  + 
MSL_GAIN+LOOP_GAIN-20.0*log(RANGE_TGT_LAC(I))- 
20.0*log(TGT_RANGE(I>); 
when  BARRAGE_NOISE  => 

ERPD  :=  ECM_POWER(I); 

NOISE  POWER(I)  :=  -78.2  +  LAC_TRANS_PWR  +  LAC_GAIN  + 

MSL_GAIN  +  ERPO  -  20.0*log(TGT_RANGE(I )); 
when  others  => 
null; 
end  case; 
end  loop; 

if  NUM_OF_SOJS  /=  0  then 

for  I  in  1..NUM  OF_SOJS  loop 

MSL_ANT_GAINS_SA(BSE(I+2),MSL_GAIN,DELTA_GAIN); 

case  SOJ_ECM_TECH(I)  is 
when  BARRAGE_NOISE  => 

ERPD : =ECM_POUER ( 1+2); 

NOISE  POWER(I+2):=-88.0+ERPD+MSL_GAIN-20.0*LOG( 
TGT_RANGE(I+2)); 
when  others  => 

NOISE_POWER( 1+2) :=- 166.0; 
end  case; 
end  loop; 
end  if; 
end  SA_POWERS; 

procedure  SA  DETECT  is 

THERM_N0TSE_FL0OR  :  constant:=-166.0;  --  indb/filter 

FALSE_ALARM_THRESHOLD  :  constant:=6.0;  --  in  db 

NOISE_THRESHOLD       :  constant :=8.0;  --  in  db 
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begin 

SA  POWERS; 

i f ~NUM_OF_TGTS  =  1  then 

if  TGT_POWER(1)  >=  REPEAT_P0WER(1 )  and  TGT_P0WER(1)  >=  N0ISE_P0WER(1 ) 
then 

SNR  :=  TGT  P0WER(1)  -  THERM_NOISE_FLOOR; 

if  TGT_P0WER(1)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  3; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
elsif  REPEAT_POWER(1)  >  TGT_POWER(1)  and 
REPEAT_POWER(1)  >  NOISE_POWER(1)  then 

SNR  :=  REPEAT_POUER(1)  -  THERM_NOISE_FLOOR; 

if  REPEAT_POWER(1)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  2; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
else 

SNR  :=  N0ISE_POWER(1)  -  THERM_NOISE_FLOOR; 

if  NOISE  POWER(2)  >  THERM  NOISE  FLOOR  +  FALSE  ALARM  THRESHOLD  then 


SELTGT 

:=  1; 

TGTTYP 

:=  2; 

else 

SELTGT 

:=  0; 

TGTTYP 

:=0; 

end  if; 

end  if; 

else 

if  TGT  POWER(1) 

>=  Tl 

TGT_POWER(2)  and  TGT  POWER(1)  >=  REPEAT_POUER(2) 
and  TGT  POWER(1)  >=  REPEAT_POWER(1)  and~TGT_POUER(1 )  >=  NOISE_POWER(1) 
and  TGT~POWER(1)  >=  NOISE_POWER(2)  then 

SNR  :=  TGT_POWER(1)  -  THERM_NOISE_FLOOR; 

if  TGT_POWER(1)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  3; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
elsif  TGT_POWER(2)  >  TGT_POWER(1)  and  TGT_POWER(2)  >=  REPEAT_POUER(2) 
and  TGT_POUER(2)  >=  REPEAT_POWER<1) 
and  TGT  POWER(2)  >=  NOISE_POWER<1) 
and  TGT~POWER(2)  >=  NOISE_POWER(2)  then 

SNR  :=  TGT_POWER(2)  -  THERM_NOISE_FLOOR; 

if  TGT_POWER(2)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  2; 
TGTTYP  :=  3; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
elsif  REPEAT_POWER(2)  >  TGT  POUER(1)  and  REPEAT_POWER(2)>TGT_POWER(2) 

and  REPEAT_POWER(2)>REPEAT_POUER(1)  and  REPEAT_POWER(2)>NOISE_POWER(1) 
and  REPEAT  POWER<2)  >  NOISE  POWER(2)  then 

SNR  :=~ REPEAT  POWER(2)  "  THERM_NOISE_FLOOR; 

if  REPEAT_POWER<2)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  2; 
TGTTYP  :=  2; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
elsif  REPEAT  POUER(1)  >  TGT  POWER(1)  and  REPEAT  POWER(1)  >  TGT  POWER(2) 
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and  REPEAT  P0WER(1 )>REPEAT  P0UER(1)  and  REPEAT  P0UER(1)>N0ISE  P0WER(1) 
and  REPEAT~P0WER(1)  >  N0ISE_P0UER(2)  then 

SNR  :=~REPEAT_P0UER<1)  -  THERM  NOISE_FLOOR; 

if  REPEAT_P0WER(1)  >  THERM_NOISE_FLOOR  +  FALSE  ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  2; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
elsif  NOISE_POWER(1)>TGT_POWER(1)  and  NOISE_POUER(1)>TGT_POWER(2) 
and  NOISE  POWER(1)  >  REPEAT_POWER(1) 
and  NOISE_POWER<1)  >  REPEAT_POUER<2) 
and  NOISE_POWER(1)  >  NOISE_POUER<2)  then 

SNR  :=  NOISE  POUER(1)  -  THERM  NOISE_FLOOR; 

if  NOISE  POWER(1)  >  THERM_NOISE  FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  2; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
else 

SNR  :=  NOISE_POWER(2)  -  THERM_NOISE_FLOOR; 

if  NOISE_POUER(2)  >  THERM_NOISE  FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  2; 
TGTTYP  :=  2; 
else 

SELTGT  :=  0; 
TGTTYP  :=  0; 
end  if; 
end  if; 
end  if; 

--  determine  if  the  soj  power  is  detectable 
for  I  in  1..NUM_OF_SOJS  loop 

case  SOJ  ECM  TECH(I)  is 
when  BARRAGE  NOISE  => 

if  TGT_POUER(I)  >  THERM  NOISE  FLOOR  ♦  FALSE_ALARM_THRESHOLD 
and  TGT_POWER(I)  >  NOISE  POWER(I)  then 

"null; 
elsif  NOISE_POUER(I)  >  THERM_NOISE_FLOOR  + 

FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  1; 

SNR  :=  NOISE_POWER(I)  -  THERM_NOISE_FLOOR; 
else 

SELTGT  :=  1; 
TGTTYP  :=  0; 

if  TGT  POWER(I)  >  NOISE  POWER(I)  then 

SNR  :=  TGT_POWER(I)~-  THERM_NOISE_FLOOR; 
else 

SNR  :=  NOISE_POWER(I)  -  THERM_NOISE_FLOOR; 
end  if; 
end  if; 
when  others  => 
SELTGT  :=  1; 
TGTTYP  :=  0; 

SNR  :=  TGT_POWER(I)  -  THERM_NOISE_FLOOR; 
end  case; 
end  loop; 
end  SA_DETECT; 

procedure  SA_MODE  is 

X_ACQ_OELAY  :  CONSTANT  :=  5.0;  --  X  band  acq  to  track  delay  time 
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begin 

case  RF_PHASE  is 

when  MIDCOURSEjNON  ACTIVE  => 

if  SELTGT  =  1  or  SELTGT  =  2  then 
RF_PHASE:=X_BAND_ACQUISITION; 
if  X_ACQ_TIME  =  -10.0  then 

X_ACQ_TIME  "ENVIRONMENT. Time; 
end  if; 
end  if; 
when  X_BAND_ACQUISITION  => 

if  ENVIRONMENT. Time  >=  X_ACQ_TIME+X_ACQ_DELAY  then 

RF_PHASE:=X_BAND_TRACK; 
end  if; 
when  others  => 
null; 
end  case; 
end  SAMODE; 

procedure  A_POWERS  is 

THERM_NOISE_FLOOR  :  CONSTANT  :=  -150.0;  --  indb/filter 
MSL_POWER  :  CONSTANT  :=  30.0; 
LOOP_GAIN  :  REAL;  --  in  db 
ERPD  :  REAL;  --  in  db 
MSL_GAIN,  DELTA_GAIN  :  REAL; 

begin 

for  I  in  1..NUM_0F_TGTS  loop 

MSL_ANT_GAINS_A(BSE(I),MSL_GAIN,DELTA_GAIN); 

TGT_POWER(I)  :=  -63.45+  MSL_POUER+2.0*MSL_GAIN+10.0*LOG(RCS(I))-40.0* 
log(TGT_RANGE(I>); 

case  SSJ_ECM_TECH(I)  is 
when  REPEATER  => 

LOOP_GAIN  :=  ECM_POWER(I); 

REPEAT_POWER(I)  7=  -105.0  +LAC_TRANS_PWR  +LAC_GAIN  +MSL_GAIN  + 
LCOP_GAIN  -  40.0*log(TGT_RANGE(I>); 
when  BARRAGE_NOISE  => 

ERPD  :=  ECM_POWER(I); 

NOISE  POWER(I)  :=  -88.65  +  LAC_TRANS_PUR  +  LAC_GAIN  +  MSL_GAIN 
+  ERPD  -  20.0*1 og<TGT_RANGE( I)); 
when  others  => 
null; 
end  case; 
end  loop; 
if  NUM  OF  SOJS  /=  0  then 

for  fin  1..NUM_0F_S0JS  loop 

MSL_ANT_GAINS_A(BSE(I+2),MSL_GAIN,DELTA_GAIN); 

case  SOJ_ECM_TECH(I)  is 
when  BARRAGE_NOISE  => 

ERPD:=ECM_POWER(I+2); 

NOISE_POWER(I+2):=-100.0+ERPD+MSL_GAIN-20.0*LOG(TGT_RANGE(I+2)); 
when  others  => 

N0ISE_POWER(I+2):=  THERM_NOISE_FLOOR; 
end  case; 
end  loop; 
end  if; 
end  A_POWERS; 

procedure  A_DETECT  is 

THERM_NOISE_FLOOR  :  CONSTANT  :=  -150.0;   --  indb/filter 

--  assume  a  1000  hz/filter  BW 
FALSE_ALARM  THRESHOLD  :  CONSTANT  :=  6.0;  --  in  db 
NOISE_THRESHOLD       :  CONSTANT  :=  8.0;  --  in  db 

begin 
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Calculate  Power  Levels 
A_POWERS; 
if  NUM_OF  TGTS  =  1  then 

if  TGT_POWER(1)  >  REPEAT_POWER(1)  and  TGT_POUER(1)  >  NOISE_POUER(1)  then 
SNR  :=  TGT_POWER(1)  ~   THERM_NOISE_FLOOR; 

if  TGT_POWER(1)  >  THERM_NOISE_FLOOR  +  FALSE  ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  5; 
end  if; 
elsif  REPEAT_POWER(1)>TGT_POWER(1)  and  REPEAT_POWER(1)>NOISE_POWER(1)  then 
SNR  :=  REPEAT_POWER(1)  -  THERM_NOISE_FLOOR; 

if  REPEAT_POWER(1)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  4; 
end  if; 
else 

SNR  :=  NOISE_POWER(1)  -  THERM  NOISE_FLOOR; 

if  NOISE  POWER(2)  >  THERM  NOTSE_FLGOR  +  FALSE_ALARM  THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  4; 
end  if; 
end  if; 
else 

if  TGT_POWER(1)  >  TGT_POWER(2)  and  TGT_POWER(1)  >  REPEAT_POWER(2)  and 

TGT_POWER(1)  >  REPEAT_POWER(1)  and  TGT_POWER(1)  >  NOISE_POWER(1 )  and 
TGT_POUER(1)  >  NOISE_POWER(2)  then 

SNR  :=  TGT_POWER(1)  -  THERM_NOISE_FLOOR; 

if  TGT  POWER(1)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  4; 
end  if; 
elsif  TGT_POWER(2)  >  TGT_POWER(1)  and  TGT_POWER(2)  >  REPEAT_POWER(2)  and 
TGT_POWER(2)  >  REPEAT_POWER(1)  and  TGT_POWER(2)  >  NOISE  POWERO)  and 
TGT_POWER(2)  >  NOISE_POWER(2)  then 

SNR  :=  TGT_POWER(2)  -  THERM_NOISE_FLOOR; 

if  TGT_POWER(2)  >  THERM_N0ISE_FL0OR  +  FALSE_ALARM  THRESHOLD  then 
SELTGT  :=  2; 
TGTTYP  :=  5; 
end  if; 
elsif  REPEAT_POWER(2)  >  TGT_POWER(1)  and  REPEAT_POWER(2)  > 
TGT_POWER(2)  and  REPEAT_POWER(2)>REPEAT_POWER(1)  and 
REPEAT_POWER<2)>NOISE_POWER<1)  and  REPEAT_POUER(2)  >  NOISE_POWER(2) 
then 

SNR  :=  REPEAT_POUER(2)  -  THERM_NOISE_FLOOR; 

if  REPEAT  POWER(2)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT": =  2; 
TGTTYP  :=  4; 
end  if; 
elsif  REPEAT  POWER(1)>TGT_POWER(1)  and  REPEAT  POWER(1)>TGT_POWER(2) 
and  REPEAT_POWER(1)>REPEAT  POWER(1)  and 

REPEAT_POWER(1)>NOISE_POWER~(1)  and  REPEAT_POWER(1)  >  NOISE_POWER(2) 
then 

SNR  :=  REPEAT  POWER(1)  -  THERM_NOISE_FLOOR; 

if  REPEAT  POWER(1)  >  THERM  NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  4; 
end  if; 
elsif  NOISE  POWER(1)>TGT  POWER(1)  and  NOISE_POWER(1)>TGT  POWER(2) 
and  NOISE  POUER(1)>REPEAT_POWER(1)  and  NOISE_POWER(1)~> 
N0ISE_POWfR<1)  and  NOISE_POWER(1)  >  NOISE_POWER(2)  then 
SNR  :=  NOISE_POWER(1)  -  THERM  NOISE_FLOOR; 

if  NOISE_POUER(1)  >  THERM_N0lSE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  4; 
end  if; 
else 

SNR  :=  NOISE_POWER(2)  -  THERM_NOISE_FLOOR; 

if  N0ISE_P0WER(2)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  2; 
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TGTTYP  :=  4; 
end  if; 
end  if; 
end  if; 

--  determine  if  the  soj  power  is  detectable 
for  I  in  1..NUM_0F_S0JS  loop 

case  SOJ_ECM_TECH(I)  is 

When  BARRAGENOISE  => 

if  TGT_POWER(I)  >  THERM_NOISE_FLOOR  +  FALSE_ALARM_THRESHOLD  and 
TGT_POWER(I)  >  NOISE_POWER(I)  then 
null; 
elsif  NOISE_POWER(I)  >  THERM_M0ISE_FL0OR  +  FALSE_ALARM_THRESHOLD  then 
SELTGT  :=  1; 
TGTTYP  :=  1; 

SNR  :=  NOISE_POWER(I)  -  THERM_NOISE_FLOOR; 
else 

SELTGT  :=  1; 
TGTTYP  :=  0; 
if  TGT_POUER(I)  >  NOISE_POWER(I)  then 

SNR  :=  TGT_POWER(I)  -  THERM_NOISE_FLOOR; 
else 

SNR  :=  NOISE_POWER(I)  -  THERM_NOISE_FLOOR; 
end  if; 
end  if; 
when  others  => 
SELTGT  :=  1; 
TGTTYP  :=  0; 

SNR  :=  TGT_POWER(I)  -  THERM_N0ISE_FLOOR; 
end  case; 
end  loop; 
end  A_DETECT; 

procedure  A_MOOE  is 

K_ACQ_DELAY  :  CONSTANT :=  5.0; 

begin 

case  RF_PHASE  is 

when  X_BAND_TRACKjNON_ACTIVE  => 
if  TGTTYP  in  4.. 5  then 

RF_PHASE : =k_band_acqu  isi t i  on; 
if  K_ACQ_TIME  =  -10.0  then 

K_ACQ_TIME:=ENVIRONMENT.Time; 
end  if; 
end  if; 
when  k_band_acquisition  => 

if  ENVIRONMENT. Time  >=  K_ACQ_TIME+K_ACQ_DELAY  then 

RF_PHASE:=K_BAND_TRACK; 
end  if; 
when  others  => 
null; 
end  case; 
end  A_MODE; 


procedure  DETECTION(TGT  RANGE  IN, 

RANGE_TGf  LAC  IN 

RF  PHASE_OUT 

SNR  OUT 
TGUYP  OUT 
BSE  OUT 


in  VECTOR; 
out  RF_PHASE_TYPE2; 
out  REAL; 
out  INTEGER; 
out  VECTOR)  is 


begin 

TGT  RANGE:=TGT  RANGE  IN; 

RANGE_TGT_LAC:=RANGE_TGT_LAC_IN; 

--  Determine  if  we  have  aquired  the  target  in  S/A  X-band,  Ka  band  or  are 

--  still  in  midcourse 
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if  RF  PHASE  /=  K_BAND_ACQUISITION  or  RF_PHASE  /=  K_BAND_TRACK  then 

SA  DETECT; 

SA~M0DE; 
end  if; 
A_DETECT; 
A_MODE; 
SNR_OUT:=SNR; 
RF_PHASE  OUT:=RF  PHASE; 
BSE_OUT:=BSE; 
TGTTYP_OUT:=TGTTYP; 
end  DETECTION; 

end  RF_SEEKER; 

--  Package  IR  SEEKER 


with  HATH;  use  MATH; 

with  MODEL_TYPES;  use  MODEL_TYPES; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

package  IR_SEEKER  is 

procedure  SETUP(IR_TGT1_SIGNATURE_IN,  IR_TGT2_SIGNATURE_IN: 
in  TGT_IR_SIZE_TYPE); 

procedure  INITIALIZE(TGT_ALTITUDE,  MSL_ALTITUDE:   in  REAL; 
IR_ACQ_RANGE:   out  REAL); 

procedure  DETECTION  ( RANGE 1  :  in  REAL;  IR_PHASE_OUT  :  out 
IR_PHASE_TYPE); 


end  IR_SEEKER; 

--  Package  IR_SEEKER  body 


with  MATH;  use  MATH; 
with  MODEL_TYPES;  use  MODEL  TYPES; 
with  REAL_MATRIX;  use  REAL  MATRIX; 
with  ENVIRONMENT; 

package  body  IR_SEEKER  is 

IR_PHASE:  IR_PHASE_TYPE; 

IR_SEARCH_TIME:  REAL; 

IR_ACO_TIME   :  REAL; 

IR_TRK~TIME   :  REAL; 

IR_TGT1  SIGNATURE  :  TGT_IR_SIZE_TYPE; 

IR_TGT2  SIGNATURE  :  TGT_IR_SIZE~TYPE; 


procedure  SETUP(IR  TGT1  SIGNATUREJN,  IR_TGT2_SIGNATURE_IN: 

in  TGTJR_SIZE_TYPE)  is 
begin 

IR_TGT1_SIGNATURE:=IR  TGT1  SIGNATURE_IN; 

I R_TGT2_S I GNATURE : = I R~TGT2~S I GNATURE~I N ; 

IR_PHASE:=  NON_ACTIVeJ 

IR_SEARCH_TIME:=0.0; 

IR_ACO_TIME:=0.0; 

IR  TRK  TIME:=0.0; 
end  SETUP;" 
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procedure  INITIALIZE(TGT  ALTITUDE,  MSL_ALTITUOE:   in  REAL; 

IR~ACQ_RANGE:   out  REAL)  is 
begin 

if  TGT_ALTITUOE  >  70_000.0  then 

if  IR  TGT1_SIGNATURE  =  SMALL  then 

I R_ACQ_RANGE : =200000 . 0 ; 
else 

I R_ACQ_RANGE : =400000 .  0; 
end  if; 
elsif  TGT_ALTITU0E  >  10_000.0  then 

if  IR_TGT1_SIGNATURE  =  SMALL  then 

IR  ACQ_RANGE: =100000.0; 
elsif  Tr_TGT1_SIGNATURE  =  MEDIUM  then 

IR  ACQ_RANGE: =200000.0; 
elsif  Tr  TGT1  SIGNATURE  =  LARGE  then 

I R_ACQ_RANGE : =350000 . 0; 
end  if; 
else 

if  IR_TGT1_SIGNATURE  =  SMALL  then 

I R_ACQ_RANGE : =6000 . 0; 
elsif  7r_TGT1_SIGNATURE  =  MEDIUM  then 

IR  ACQ_RANGE :=1 00000.0; 
elsif  7r_TGT1_SIGNATURE  =  LARGE  then 

I R_ACQ_RANGE:=1 50000.0; 
end  if; 
end  if; 
end  INITIALIZE; 


procedure  DETECTION  ( RANGE  1  :  in  REAL;  IR_PHASE_OUT  :  out 
IR  PHASE  TYPE)  is 


SEARCH_DELAY 
ACQ  DELAY 
TRK~DELAY 


constant 
constant 
constant 


5.0;   --  delay  from  radome  off  until  IR_SEARCH 
1.0;   --       from  IR_SEARCH  until  IR_ACQUISITION 
1.0;   --      from  IR  ACQUISITON  until  IR  TRACK 


DELTA  SEARCH  :  REAL;     --  local  variables 
DELTA~ACQ     :  REAL 
DELTA~TRK     :  REAL 
begin 

case  IR_PHASE  is 
when  NON  ACTIVE  => 

if  IR  SEARCH  TIME  =  0.0  then 

IR~_SEARCH~_TIME  :=  ENVIRONMENT.Time; 
end  if; 

DELTA  SEARCH  :=  ENVIRONMENT.Time  -  IR_SEARCH_TIME; 
if  DELTA_SEARCH  >=  SEARCH  DELAY  then 

IR_PHASE:=  IR_SEARCH;~ 
end  if; 
when  IR  SEARCH  => 

if  1r  ACQ_TIME  =  0.0  then 

IR~_ACQ_TIME  :=  ENVIRONMENT.Time; 
end  if; 

DELTA  ACQ  "ENVIRONMENT.Time  -  IR  ACQ  TIME; 
if  DELTA_ACQ  >=  ACQ  DELAY  then 
IR_PHASE:=  IR_ACQUISITION; 
end  if; 
when  IR  ACQUISITION  => 

if  1r  TRK  TIME  =  0.0  then 

IR"_TRK_TIME  :=  ENVIRONMENT.Time; 
end  if; 

DELTA  TRK  :=  ENVIRONMENT.Time  -  IR_TRK_TIME; 
if  DELTA_TRK  >=  TRK_DELAY  then 

IR_PHASE:=  IR_TRACK; 
end  if; 
when  IR_TRACK  => 

null;  --  Once  in  IR_TRACK  always  in  IR_TRACK 

end  case; 
IR_PHASE_OUT   :=  IR_PHASE; 
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end  DETECTION; 
end  IR_SEEKER; 


--  Guidance  Package  Specification 

--  This  package  contains  the  data  types  and  subprograms  used  in  modeling  the 
--  guidance  subsystem. 


with  HATH;  use  HATH; 

with  REAL_HATRIX;  use  REAL  MATRIX; 

with  HODEL_TYPES;  use  HODEL_TYPES; 

package  GUIDANCE  is 

procedure  INITIALIZE  ( 
ALTITUDE  :  in  REAL; 
TGT_ALTITUDE  :  in  REAL; 
TGT_RANGE  :  in  VECTOR; 
TGT_VEL  :  in  VECTOR); 

procedure  COHPUTE  < 

TIHE_TO_GO  :  in  REAL; 

ALTITUDE  :  in  REAL; 

ALTITUDE_RATE   :  in  REAL; 

VELOCITY  :  in  REAL; 

AXIAL_ACC  :  in  REAL; 

PITCH_BOD   :  in  REAL; 

TGT  RANGE  :  in  REAL; 

TGTJIANGE_RATE  :  in  REAL; 

SKR_GIHBAL_ANGLE  :  in  VECTOR; 

OHEGA1  SKR  :  in  VECTOR; 

GUIDANCE  PHASE_OUT  :  out  GUIDANCE_PHASE  TYPE; 

ACC_CHD_BOD  :~out  VECTOR); 

end  GUIDANCE; 


■-  Guidance  Package  Body 

-  This  package  contains  the  data  types  and  subprograms  used  in  modeling  the 
•-  guidance  subsystem. 


with  HATH;  use  HATH; 
with  HODEL  TYPES;  use  HODEL_TYPES; 
with  REAL  HATRIX;  use  REAL_HATRIX; 
with  ENVIRONHENT; 

package  body  GUIDANCE  is 

--  Hode  selection  constants 


GUIDANCEJNITIATE  TIHE  :  constant  :=  0.8;  --  Sec 

TURNDOWN  GIHBAL_ANGLE  :  constant  :=  40.0  *  DEG_TO_RAD;  --  Rad 

TRANS_ClThB_ANGLE  :  constant  :=  20.0  *  DEG  TO_RAD;  --  Rad 


Altitude  hold  algorithm  constants 


DESIRED  ALTITUDE  :  constant  :=  70000.0;  --  Feet 
ALTITUDE_DELTA  :  constant  :=  50.0;  --  Feet 
ALTITUDE~GAIN  :  constant  :=  0.1;  --  Ft/Sec  /  Ft 
ALTITUDE~RATE_GAIN  :  constant  :=  0.3;  --  Ft/SecA2  /  Ft/Sec 
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ALTITUOE_ACC_LIMIT  :  constant  :=  160.0;  --  Ft/SecA2 
--  Guidance  algorithm  constants 


LOAD  BIAS_FACTOR  :  constant  :=  -5.0  *  G;  --  Ft/SecA2 
ACCEL_LIM.IT  :  constant  :=  35.0  *  G;  --  Ft/SecA2 
CRUISE_ALPHA_EST  :  constant  :=  10.0  *  DEG_T0_RAD;  --  Rad 


Data  definitions 


GUIDANCE  PHASE  :  GUIDANCE_PHASE_TYPE; 
PREV_GUIDANCE_PHASE  :  GUIDANCE_PHASE_TYPE; 
COS_TOT_GIMBAL_ANG  :  REAL; 
COS_TURNDOUN_GIMBAL_ANGLE  :  REAL; 
CLIMB_ANGLE   :  REAlJ 
AXIAL_ACC  COHP  :  REAL; 
PIT_ACC_CMD   :  REAL; 
YAW_ACC_CMD   :  REAL; 
ALTITUDE_RATE_LIMIT  :  REAL; 
ALT  RATE_LIMIT_SET  :  boolean; 
LOS~BIAS  :  REAL; 
HOLD_PATH_TIME  :  REAL; 
TERMINAL_TGO_THRESHOLD  :  REAL; 
LONG_RANGE  :  boolean; 
ALT  SWITCH,  ALT_RATE_SWITCH  :  REAL; 
PIT~ACC_COMP_ENABLED  :  boolean; 


procedure  INITIALIZE  ( 
ALTITUDE  :  in  REAL; 
TGT  ALTITUDE   :  in  REAL; 
TGT~RANGE  :  in  VECTOR; 
TGTJ/EL  :  in  VECTOR)  is 

RANGE  HORIZ  :  REAL; 

TGT  VEL  HORIZ  :  REAL; 

REL~VEL~NOSE,  REL_VEL_TAIL,  RELJ/EL  :  REAL; 

HORIZ_ASPECT_ANGLE  :  REAL; 

DT_SEP,  DX_SEP,  DT  HOLD,  DX_HOLD  :  REAL; 
R_5G  BIAS,  X_5G_BIAS,  H  5G  BIAS,  T_5G_BIAS  :  REAL; 
R  VAR_ARC,  DX_VAR_ARC,  DT  VAR  ARC  :  REAL; 
X~ALT  HOLD,  T  ALT  HOLD  :  REAlJ 
DX_TGT  :  REALJ 

COS_ASPECT  ANGLE,  SIN_ASPECT_ANGLE  :  REAL; 
GIM_PITCHOVR_RNG,  DELTA_HEIGHT  :  REAL; 

TGO~PITCHOVR~RNG,  TGO_PITCHOVR  RNG_NOSE,  TGO_PITCHOVR_RNG_TAIL  :  REAL; 
DISCRIMINANT  :  REAL; 

LOS_PITCHOVR  RNG,  LOS_PITCHOVR_RNG  NOSE,  LOS_PITCHOVR_RNG_TAIL  :  REAL; 
PITCHOVR_RNGJUOSE,  PITCHOVR  RNG  TAIL  :  REAL;" 
RNG_NOSE7  RNG_TAIL,  DELTA_RNG,  RADIUS,  THRESHOLD_RANGE  :  REAL; 
begin 

GUIDANCE  PHASE  :=  NULL_COMMANDS; 
ALT  RATE~LIMIT  SET  :=  false; 
PIT~ACC  COMP_ENABLED  :=  false; 
COS~TURNDOWN_GIMBAL_ANGLE  :=  COS(TURNDOWN_GIMBAL_ANGLE); 

--  LOS  rate  bias  and  time-to-go  threshold  based  on  tgt  altitude 

if  TGT  ALTITUDE  <=  50000.0  then 

LOS  BIAS  :=  0.0025; 

TERMINAL_TGO_THRESHOLD  :=  40.0; 
else 

LOS  BIAS  :=  0.001; 

TERMINAL_TGO_THRESHOLD  :=  15.0  +  TGT_ALTITUDE*0.0005; 
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end  if; 

--  Horizontal  tgt  range  and  relative  velocity 

RANGE  HORIZ  :=  SQRT(TGT_RANGE(1 )**2  +  TGT_RANGE(2)**2); 
TGT_VEL_HORIZ  :=  SQRT(TGT_VEL(1 )**2  +  TGT_VEL(2)**2); 

--  Altitude  hold  mode  rel.  vel.  for  nose  &  tail  aspect 

REL_VEL_NOSE  :=  3000.0  +  TGT_VEL_HORIZ; 
REL_VEL_TAIL  :=  3000.0  -  TGT_VEL_HORIZ; 

--  Horizontal  aspect  angle 

SIN_ASPECT_ANGLE  :=  (TGT  VEL(2)*TGT_RANGE(1 )  - 

TGT_VEL(1)*TGT  RANGE(2))  /  (RANGE_HORIZ  *  TGT_VEL_HORIZ); 

COS_ASPECT_ANGLE  :=  (TGT  VEL(1 )*TGT_RANGE(1)  + 

TGT_VEL(2)*TGT_RANGE(2))  /  (RANGE_HORIZ  *  TGT_VEL_HORIZ); 

HORIZ_ASPECT_ANGLE  :=  ATAN2(SIN_ASPECT_ANGLE,  COS_ASPECT_ANGLE); 

--  Time  to  hold  before  5g  bias  climb 

if  TGT  ALTITUDE  >  70000.0  then 
if "ALTITUDE  >  20000.0  then 

if  MAGNITUDE(TGT_RANGE)  <  110.0*FEET_PER_NMI  then 

DT_HOLD  :=  20.0; 
elsif  MAGNITUDE(TGT_RANGE)  >  120.0*FEET_PER_NMI  then 

DT_HOLD  :=  10.0; 
else 

DT_H0LD  :=  20.0  +  (MAGNITUDE(TGT_RANGE)-110.0*FEET_PER  NMI)* 

(10.0-20.0)  /  ((120. 0-110. 0)*FEET_PER_NMI); 
end  if; 

HOLD_PATH_TIME  :=  ((TGT_ALTITUDE-DESIRED_ALTITUDE)  / 
(90000. 0-DESIRED  ALTITUDE))  *  ((ALTITUDE-20000.0)  / 
(30000.0-20000.0))  *  20.0; 

if  HOLD_PATH_TIME  >  DT_HOLD  then 

HOLD_PATH_TIME  :=  DT_H0LD; 
end  if; 
else 

HOLD_PATH_TIME  :=  0.8; 
end  if; 
else 

HOLD_PATH_TIME  :=  0.8; 
end  if; 

--  Estimated  missile  travel,  separation  phase 

DT_SEP  :=  0.8; 

DX_SEP  :=  1000.0  *  DT_SEP; 

--  Estimated  missile  travel,  flight  path  hold  phase 

DT_HOLD  :=  H0LD_PATH  TIME  -  DT  SEP; 

DX_H0LD  :=  ((1000.0  +  2600.0)  7  2.0)  *  DT_H0LD; 

--  Estimated  missile  travel,  5g  bias  phase 


R  5G  BIAS 
X~5G~BIAS 

H~5gIbias 
T_5G  BIAS 
DT  HOLD; 


=  (2600.0  **  2)  /  (-LOAD_BIAS_FACTOR); 

=  DX_SEP  +  DX_HOLD  +  R_5G_BIAS  *  SIN(TRANS_CLIMB_ANGLE); 

=  ALTITUDE  +  R  5G_BIAS  *  (1.0  -  COS(TRANS_CLIMB  ANGLE)); 

=  TRANS  CLIMB  ANGLE  *  2600.0  /  (-LOAD  BIAS  FACTOR)  +  DT  SEP  + 


--  Estimated  missile  travel,  variable  arc  phase 
R_VAR_ARC  :=  (DESIRED_ALTITUDE  -  H_5G_BIAS)  / 
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(1.0  -  COS(TRANS_CLIMB  ANGLE)); 

DX  VAR  ARC  :=  R  VAR  ARC  *  SIN(TRANS_CLIMB_ANGLE); 

DT~VAR~ARC  :=  TRANS~CLIMB_ANGLE  *  R_VAR_ARC  /  ((2600.0  +  3000.0)  /  2.0); 

--  Estimated  missile  travel,  altitude  hold  phase 

X_ALT_HOLD  :=  X_5G  BIAS  ♦  DX_VAR_ARC  +  3000.0*20.0; 
T~ALT~H0LD  :=  TJGJIAS  +  DT_VAR_ARC  +  20.0; 

--  Estimated  target  travel 

DX_TGT  :=  TGT_VEL_HORIZ  *  T_ALT_HOLD; 

--  Gimbal  angle  pitchover  range 

DELTA  HEIGHT  :=  DESIRED_ALTITUOE  -  TGT_ALTITUDE; 

GIM  PTTCH0VR_RNG  :=  abs(DELTA_HEIGHT)  /  TAN(TURNDOUN_GIMBAL_ANGLE  - 
CRUISE_ALPHA_EST*SIGN(DELTA_HEIGHT)); 

--  Time  to  go  pitchover  range 

REL_VEL  :=  REL_VEL_NOSE; 
for  I  in  1..2  loop 

TGO  PITCHOVR_RNG  NOSE  :=  TGO_PITCHOVR_RNG; 

DISCRIMINANT~:=  (REL_VEL*TERMINAL_TGO_THRESHOLD)  **  2  - 

4.0  *  (DELTA_HEIGHT  **  2); 

if  DISCRIMINANT  >=  0.0  then 

TGO  PITCHOVR  RNG  :=  (REL_VEL*TERMINAL_TGO_THRESHOLD  + 
~SQRT(DISCRIMINANT))  7  2.0; 
else 

TGO_PITCHOVR_RNG  :=  0.0; 
end  if; 

--  LOS  rate  pitchover  range 

LOS_PITCHOVR_RNG_NOSE  :=  LOS_PITCHOVR_RNG; 

DISCRIMINANT  :=  (REL_VEL  /  (0.5*DEG_TO  RAD))  -  abs(DELTA_HEIGHT); 

if  DISCRIMINANT  >  0.0  then 

LOS_PITCHOVR_RNG  :=  SQRT(abs(DELTA_HEIGHT)  *  DISCRIMINANT); 
else 

LOS_PITCHOVR_RNG  :=  0.0; 
end  if; 

REL_VEL  :=  REL_VEL_TAIL; 

end  loop; 

if  REL_VEL  TAIL  >  0.0  then 

TGO_PITCHOVR_RNG  TAIL  :=  TGO  PITCHOVR_RNG; 

LOS_PITCHOVR_RNG~TAIL  :=  LOs3PITCHOVR_RNG; 
else 

TGO_PITCHOVR_RNG_TAIL  :=  0.0; 

LOS_PITCHOVR_RNG_TAIL  :=  0.0; 
end  if; 

PITCHOVR_RNG_NOSE  :=  MAX3(GIM_PITCH0VR  RNG,  TGO_PITCHOVR_RNG_NOSE, 

LOS  PITCHOVR_RNG_NOSE); 
PITCHOVR_RNG_TAIL  :=  MAX3(GIM_PITCH0VR_RNG,  TG0_PITCH0VR_RNG_TAIL, 

LOS_PITCHOVR_RNG_TAIL); 

--  Compute  algorithm  selection  threshold  range 

RNG_NOSE  :=  X_ALT_HOLD  +  PITCHOVR_RNG_NOSE  +  DXTGT; 
RNG_TAIL  :=  X_ALT~HOLD  +  PITCHOVR_RNG_TAIL  -  DX_TGT; 

DELTA_RNG  :=  (RNG  NOSE  -  RNG_TAIL)  /  2.0; 
RADIUS  :=  (RNG_NOSE  +  RNG_TAIL)  /  2.0; 

THRESHOLD_RANGE  :=  SQRT(RADIUS**2  -  (DELTA_RNG*SIN_ASPECT_ANGLE)**2)  - 
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DELTA_RNG*COS_ASPECT_ANGLE; 

--  Determine  if  'long'  or  'short'  range  flight  &  set  parameters 

if  RANGE  HORIZ  <   THRESHOLD  RANGE  then 

LONG~RANGE  :=  false; 

ALT_SUITCH  :=  60000.0; 

ALT_RATE_SWITCH  :=  600.0; 
else 

LONG_RANGE  :=  true; 

ALT  SWITCH  :=  69000.0; 

ALT~RATE_SWITCH  :=  0.0; 
end  if; 
end  INITIALIZE; 


procedure  COMPUTE  ( 

TIME_TO_GO  :  in  REAL;    --  Midcourse  estimated  time  to  go 
ALTITUDE  :  in  REAL;    --  Ms  I  altitude  above  round  earth 
ALTITUDE  RATE  :  in  REAL;    --  Derivative  of  altitude 
VELOCITY-  :  in  REAL;    --  Velocity  magnitude 

--  INS  measured  axis  1  accel. 
--  Pitch  relative  to  earth 
--  Estimated  range  to  tgt 
TGT_RANGE_RATE  :  in  REAL;    --  Derivative  of  TGT_RANGE 
SKR_GIMBAL_ANGLE  :  in  VECTOR;   --  Seeker  LOS  angles 
OMEGA1  SKR  :  in  VECTOR;   --  Seeker  LOS  angle  rates 
GUIDANCE_PHASE_OUT  :  out  GUIDANCE_PHASE_TYPE; 
ACC_CMD_BOD  :  out  VECTOR)  is  --  Body  acceleration  cmds 


AXIAL_ACC  :  in  REAL 
PITCH_BOO  :  in  REAL 
TGT  RANGE   :  in  REAL 


procedure  GUIDANCE_MODE  is 

TOTAL  LOS  RATE":  REAL; 

TOTAL~GIMBAL_ANG  :  REAL; 

VELJ.IMIT  :  REAL; 
begin 

PREV_GUIDANCE_PHASE  :=  GUIDANCE_PHASE; 

COS_TOT_GIMBAL  ANG  :=  COS(SKR_GIMBAL  ANGLE<2)>  * 

COS (SKR  GIMBAL~ANGLE<3>); 

TOTAL_GTMBAL_ANG  :=  ACOS(COS_TOT_GIMBAL_ANG); 

TOTAL_LOS_RATE  :=  SQRT(OMEGA1_SKR(2)**2~+  OMEGA1_SKR(3)**2); 

if  ENVIRONMENT. Time  >=  GUIDANCE_INITIATE_TIME  then 
if  PREV  GUIDANCE  PHASE  =  TERMINAL  or 
TIME_TO~GO  <=  TERMINAL_TGO_THRESHOLD  then 
GUIDANCE_PHASE  :=  TERMINAL; 

elsif  PREV_GUIDANCE_PHASE  =  TURN_DOWN  then 

GUIDANCE_PHASE  :=  TERMINAL;  ~-    Incomplete  in  6D0F 

elsif  PREV  GUIDANCE_PHASE  =  ALTITUDE_HOLD  then 
if  TOTAL_LOS_RATE  >=  0.5*DEG_TO_RAD  or 
COS  TOT  GIMBAL  ANG  <=  COS  TURNDOWN_GIMBAL_ANGLE  then 

~GUIDANCE_PHASE  :=  TERMINAL; 
else 

GUIDANCE_PHASE  :=  ALTITUDE_HOLD; 
end  if; 

elsif  PREV_GUIDANCE_PHASE  =  VARIABLE_ARC  then 
if  TOTAL_LOS  RATE  >=  0.5*DEG_TO_RAD  then 

GUIDANCE~PHASE  :=  TERMINAL; 
elsif  ALTITUDE  >=  ALT  SWITCH  and 
ALTITUOE_RATE  >=  ALT_RATE  SWITCH  then 

GUIDANCE_PHASE  :=  ALtTtUDE_HOLD; 
else 

GUIDANCE_PHASE  :=  VARIABLE_ARC; 
end  if; 
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elsif  PREV_GUIDANCE_PHASE  =  LOAD_BIAS  then 

CLIMB_ANGLE  :=  ASIN(ALTITUDE_RATE  /  VELOCITY); 

if  CLIMB  ANGLE  >=  TRANS_CLIMB_ANGLE  then 
GUIDANCE_PHASE  :=  VARIABLE_ARC; 

else 

GUIDANCE_PHASE  :=  LOAD_BIAS; 

end  if; 

elsif  PREV_GUIDANCE  PHASE  =  HOLD_PATH  then 
if  ALTITUOE  <=  30000.0  then 


VELJ.IMIT 
elsif  ALTITUDE 

VEL_LIMIT 
else 

VELJ.IMIT 
end  if; 


=  2900.0  +  0.0225*ALTITUDE; 

<=  70000.0  then 

=  3500.0  +  0.00725*(ALTITUDE-30000.0); 

=  3800.0; 


if  VELOCITY  >=  (VEL  LIMIT-150.0)  then 
GUIOANCE_PHASE  7=  LOAD_BIAS; 

elsif  ENVIRONMENT. Time  >  HOLD_PATH_TIME  then 
GUIDANCE_PHASE  :=  LOAD_BIAS; 

else 

GUIDANCE_PHASE  :=  HOLD_PATH; 

end  if; 

elsif  PREV_GUIDANCE  PHASE  =  NULL_COMMANDS  then 
if  HOLD_PATH_TIME  <=  0.8  then 

GUIDANCE_PHASE  :=  L0AD_BIAS; 
else 

GUIDANCE_PHASE  :=  HOLD_PATH; 
end  if; 
end  if; 
end  if; 
end  GUIDANCE_MODE; 


function  ALTITUOE_HOL0_CM0 
return  REAL  is 

ALTITUDE_RATE_CMO  :  REAL; 
ALTITUDE_ACC_CMD  :  REAL; 
begin 

if  not  ALT_RATE_LIMIT_SET  then 

ALTITU0E_RATE  LIMIT  :=  abs(ALTITUOE_RATE); 

ALT_RATE_LIMIT_SET  :=  true; 
end  if; 

ALTITUDE_RATE_CMD  :=  -ALTITUOE  GAIN  *  (ALTITUOE  -  DESIRED_ALTITUDE); 
ALTITUOE_RATE_CMO  :=  LIMIT(ALTITU0E_RATE_CM0,  ALTITUDE_RATE_LIMIT); 

ALTITU0E_ACC  CM0  :=  ALTITUOE_RATE  GAIN  *  (ALTITUDE  RATE  - 

ALTITU0E~RATE  CMO); 
ALTITUDE_ACC~CMO  7=  LIMIT(ALTITUDE_ACC_CMD,  ALTITU0E_ACC_LIMIT); 


return  ALTITUDE_ACC_CM0; 
end  ALTITUDE_HOLD_CMD; 


procedure  GUIDANCE  COMMANDS  is 
T0TAL_ACC  CMO  7  REAL; 
GUIDANCE_GAIN  :  REAL; 
begin 

if  GUIDANCE_PHASE  =  TERMINAL  then 

GUIDANCE_GAIN  :■  3.0; 

PIT_ACC_COMP_ENABLED  :=  true; 
else 

GUIDANCE_GAIN  :=  4.0; 
end  if; 
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--  Yaw  acceleration  command 

case  GUIDANCE_PHASE  is 
when  NULL~COMMANDS  => 

YAW_ACC_CM0  :=  0.0; 
when  others  => 

AXIAL_ACC_COMP  :=  AXIAL_ACC  -  G*SIN(PITCH_BOD); 

--  axial_acc_comp  used  for  pitch  command  also 

YAW_ACC_CMO  :=  -GUIDANCE_GAIN  *  TGT_RANGE_RATE  * 
(0MEGA1  SKR(2)  *  TAN(SKR  GIMBAL_ANGLE(2))~* 

TAN(SKR_GIMBAL_ANGLE(3))  +  0MEGA1_SKR(3)  / 

C0S(SKR_GIMBAL_ANGLE(3))); 

YAU_ACC  CMO  :=  YAW  ACC  CMD  +  AXIAL  ACC_COMP  * 
TAN(SKR~GIMBAL_ANGLE(3T)  /  COS(SKR~GIMBAL_ANGLE(2)); 
end  case; 

--  Prop.  Nav.  Pitch  acceleration  command 

PIT_ACC_CMD  :=  GUIDANCE_GAIN  *  TGT_RANGE_RATE  * 
0MEGA1_SKR(2)  /  COS(SKR_GIMBAL_ANGLE(2))7 

if  PIT_ACC_COMP  ENABLED  then 

PIT_ACC_CMD~:=  PIT_ACC_CMD  -  AXIAL_ACC_COMP  * 

TAN(SKR~GIMBAL_ANGLE(2)); 
end  if; 

--  Pitch  acceleration  command 

case  GUIDANCE  PHASE  is 
when  NULL~COMMAN0S  => 
PIT_ACC_CMD  :=  0.0; 

when  HOLD_PATH  => 

PIT_ACC_CMD  :=  0.0; 

when  LOAD_BIAS  => 

if  LONG_RANGE  then 

PIT_ACC_CMD  :=  LOAD_BIAS_FACTOR; 
else 

PIT_ACC_CMD  :=  PIT_ACC_CMD  +  LOAD_BIAS_FACTOR; 
end  if; 

when  VARIABLE_ARC  => 

if  LONG_RANGE  then 

CLIMB  ANGLE  :=  ASIN(ALTITUDE_RATE  /  VELOCITY); 
PIT_ACC_CMD  :=  (1.0  -  COS(CLIMB_ANGLE))  * 
(VELOCITY  **  2)  /  ((DESIRED_ALTTtUOE  +  ALTITUDE_DELTA) 
-  ALTITUDE); 

else 

PIT_ACC  CMO  :=  PIT_ACC_CMD  ♦  GUIDANCE_GAIN  * 
TGT_RANGE_RATE  *  LOS_BIAS  /  COS(PITCHBOD); 

end  if; 

when  ALTITUDE  HOLD  => 

PIT_ACC_CMD  :=  ALTITUDE_HOLD_CMD  /  COS(PITCH_BOD); 

when  TURN_DOWN  => 

null;  --  Use  Prop.  Nav.  command 

when  TERMINAL  => 

null;  --  Use  Prop.  Nav.  command 
end  case; 

Compensate  for  gravity 

PIT_ACC_CMD  :=  PIT_ACC_CMD  -  G  *  C0S(PITCH_B0D); 
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Limit  acceleration  commands 
TOTAL_ACC_CMD  :=  SQRT(YAU_ACC_CMD**2  +  PIT_ACC_CMD**2); 

if  TOTAL_ACC_CMO  >  ACCELJ.IMIT  then 

PIT  ACC_CMD  :=  ACCEL~LIMIT*(PIT_ACC_CMD  /  TOTAL  ACC_CMD); 

YAU~ACC_CMD  :=  ACCELJ.IMIT*(YAU_ACC_CMD  /  TOTAL_ACC_CMD); 
end  if; 

end  GUIDANCE_COMMANDS; 

begin 

GUIDANCE_MODE; 
GUIDANCE_COMMANDS; 

GUIDANCE_PHASE_OUT  :=  GUIDANCE_PHASE; 
ACC_CMO_BOD<2)  :=  YAW  ACC  CMO; 
ACC_CM0_BO0(3)  :=  PIT~ACC~CMO; 
end  COMPUTE; 
end  GUIDANCE; 

--  Kinematics  package 

--  This  package  contains  the  procedures  which  will  initialize 

--  and  then  perform  the  necessary  calculations  to  determine  the  kinematic 

--  variables  that  are  required  to  perform  the  simulation. 

with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  MOOEL_TYPES;  use  MODEL_TYPES; 

package  KINEMATICS  is 

procedure  SETUP(NTGTS_IN,NSOJS_IN:   in  INTEGER); 

procedure  COMPUTE(MSL_POS,  MSL_VEL,  TGTJ/EL:   in  VECTOR;  TGT_POS: 
in  SUPER  VECTOR;  RANGE  VEC:  in  out  SUPERJ/ECTOR; 
OMEGA:   out  VECTOR;  TGT_RANGE,  RDOT,  MISS_DISTANCE_NED: 
in  out  VECTOR;  TIME_TO_GO,  MISS_DISTANCE:~  in  out  REAL); 

procedure  EOM(MSL_POS,  MSL_VEL  VEC,  ANGLE_0_ATTACK:   in  VECTOR;  COEF_DRAG, 
MSL_MASS,  THRUST:   in  REAlJ  MSL_X_ACC_BOO :  out  REAL; 
MSL_VEL,  MSL_HEADING_AZ,  PITCH,  Q:   in  out  REAL); 

procedure  MACH_NO( ALTITUDE:   in  REAL;  MISSILE_VEL:   in  VECTOR; 
MACH:   out  REAL); 

procedure  DIR_COS(PSI,  THETA:   in  REAL;  EIB:  out  MATRIX); 

end  KINEMATICS; 

--  Kinematics  package 

--  This  package  contains  the  procedures  which  will  initialize 

--  and  then  perform  the  necessary  calculations  to  determine  the  kinematic 

--  variables  that  are  required  to  perform  the  simulation. 


with  ENVIRONMENT; 

with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

package  body  KINEMATICS  is 

--  List  of  variables  that  are  global  to  the  KINEMATICS  package. 

SREF    :   constant  REAL:=  0.492;   --  Missile  reference  area,  ft**2 
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NTGTS       :       INTEGER; 
NSOJS       :       INTEGER; 


procedure  SETUP(NTGTS_IN,  NSOJS_IN:   in  INTEGER)  is 
begin 

NTGTS:=NTGTS_IN; 

NSOJS:=NSOJS_IN; 
end  SETUP; 


procedure  COMPUTE(MSL_POS,  MSLJ/EL,  TGTJ/EL:   in  VECTOR; 
TGT  POS:   in~SUPER_VECTOR;  RANGE_VEC: 
in  out  SUPER  VECTOR;  OMEGA:  out  VECTOR; 
TGT  RANGE,  RDOT,  MISS_DISTANCE_NED:   in  out  VECTOR; 
TIME_TO_GO,  MISS_DISTANCE:   in  out  REAL)  is 

RHO:     SUPER_VECTOR(1..4);  --  Missile  to  target  vectors  unit  vector 

MSL_TGT  VEL:  --  Missile  to  target  one  velocity  vector 

VECTOR(T..3); 

begin 

--  Calculate  MSL  TGT_VEL 
MSL_TGT_VEL:=TGT_VEL-MSL_VEL; 

for  I  in  1.. NTGTS  loop 

--  Calculate  the  missile  to  target  range  vector 

RANGE_VEC( I ) :=TGT_POS( I )-MSL_POS; 

--  Calculate  the  missile  to  target  range 

TGT_RANGE(I):=MAGNITUDE(RANGE_VEC(I)); 

--  Calculate  the  unit  vector  of  the  range  vector 

RHO( I ) :=RANGE_VEC< I )/TGT_RANGE( I ) ; 

--  Calculate  RDOT(I) 

RDOT(I):=  DOT_PRODUCT(RHO(I),MSL_TGT_VEL); 
end  loop; 

for  I  in  1.. NSOJS  loop 

RANGE_VEC(I+2):=TGT_POS(I+2)-MSL_POS; 
TGT_RANGE(I+2):=MAGNITUOE(RANGE_VEC(I+2)); 

end  loop; 

--  Calculate  the  Line  of  sight  (LOS)  vector  OMEGA 
OMEGA : =CROSS_PROOUCT ( RHO( 1 ) , MSL_TGT_VEL )/TGT_RANGE ( 1 ) ; 
--  Calculate  the  estimate  of  the  time  to  go 
if  RDOT(1)  =  0.0  then 

RDOT(1):=0.001; 
end  if; 

M I SS_D I STANCE_NED : =RANGE_VEC( 1 ) -MSL_TGT_VEL* 

DOT_PROOUCT(RANGE_VEC(1),MSL_TGT  VEL) 
/MAGNITUDE (MSL  TGT  VEL)/MAGNITUDE(MSL  TGT  VEL); 

M I SS_D I  STANCE : =MAGN I TUDE ( M I SS_0 1  STANCE"  NED ) ; 

if  TIME  TO  GO  <=  4.0  then 

TIME_TO_GO:=(-SQRT(TGT  RANGE(1)*TGT  RANGE(1 )-MISS_DISTANCE* 
MISS_DISTANCEr)/RDOT(1); 
else 

TIME_TO_GO:=-TGT_RANGE(1)/RDOT(1); 
end  if; 

if  TIME_TO  GO  >=  1000.0  or  (ENVIRONMENT. TIME  <  2.0  and 
TIME_TO  GO  <  0.0)  then 

TIME_TO  GO:=1000.0; 
elsif  TIME_TO_GO  <  0.0  then 

TIME_TO_GO:=0.0; 
end  if; 
end  COMPUTE; 
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procedure  EOM(MSL  POS,  MSL  VEL  VEC,  ANGLE_0  ATTACK:  in  VECTOR;  COEF_DRAG, 
MSL_MASS,  THRUST:  in  REAL;~MSL_X_ACC_BOD:  out  REAL; 
MSL~VEL,  MSL_HEADING_AZ,  PITCH,  Q:   in  out  REAL)  is 

--  This  procedure  calculates  the  missile  axial  acceleration 
--  vector  from  the  inputs.  This  vector  is  returned  to  the 
--  MISSILE. COMPUTE  procedure,  where  it  is  made  available  to 
--  the  applications  package  for  integration. 
DRAG  :  REAL; 

begin 

--  Calculate  the  missile  heading  angles 

PITCH:=ANGLE_O_ATTACK(2)+ATAN(-MSL_VEL_VEC(3)/SQRT(MSL_VEL_VEC<1)**2.0 
+MSLJ/EL  VEC<2)**2.0)); 

MSL_HEADING_AZ:=ATAN(MSL_VEL_VEC(2)/MSL_VEL_VEC<1)); 

--  Determine  the  missile  velocity 

MSL_VEL:=MAGNITUDE(MSL_VEL_VEC); 

--  Calculate  the  dynamic  pressure 

Q:=0.5*ENVIRONMENT.AIR_DENSITY(-MSL_POS(3))*MSL_VEL*MSL_VEL; 

--  Calculate  the  drag  on  the  missile 

DRAG : =0*CC€  F_DRAG*SRE  f ; 

--  Calculate  the  missile  x  acceleration 

MSL  X  ACC  BCO:=  (THRUST-DRAG)*G/MSL_MASS; 
end  EOmJ  " 


procedure  MACH_NO(ALTITUDE:   in  REAL;  MISSILEJ/EL:   in  VECTOR; 

MACH:  out  REAL)  is 
begin 

MACH:=MAGNITUDE(MISSILE  VEL)/ENVIRONMENT.SPEED_OF  SOUND (ALTITUDE); 
end  MACHJXO; 


procedure  DIR_COS(PSI,THETA:  in  REAL;  EIB:  out  MATRIX)  is 
CPSI,  --  Cos(PSI) 
SPSI,  --  Sin(PSI) 
CTHE,  --  Cos(THETA) 
STHE:  --  Sin(THETA) 
REAL; 


begin 
CPSI 
SPSI 
CTHE 
STHE 

EIB(1,1) 
EIBC1.2) 
EIBC1.3) 
EIB(2,1) 
EIBC2.2) 
EIBC2.3) 
EIBC3.1) 
EIB<3,2) 
EIB(3,3) 

end  DIR_COS; 

end  KINEMATICS; 


COS(PSI); 
SIN(PSI); 
COS(THETA); 
SIN(THETA); 

CTHE*CPSI; 

CTHE*SPSI; 

-STHE; 

-SPSI; 
CPSI; 
0.  O.- 
ST HE*CPS  I; 

STHE*SPSI; 

CTHE; 


--  Targets  package 

--  This  package  contains  the  procedure  calls  which  will  initialize, 

--  setup,  computes  and  get  and  put  the  missile  state  vector  as  well 

--  as  calculating  the  necessary  parameters  to  calculate  the  state 

--  vector. 


with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

with  MODEL_TYPES;  use  MODEL  TYPES; 
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package  TARGETS  is 

procedure  SETUP(ASPECT_IN, 
TGT2  ANGLEJN, 
TGT_MACH_IN, 
NO  OF  GS_IN, 
UEAVE~PERIOD  IN, 
TURN  ON  VALUE  IN, 
TURN~ANGLE  IN7 
BUILDUP_TIME  IN:   in  REAL; 
TGT  RANGE_IN7 
TGT_ALT_IN, 

SOJ~ANGLE_IN:   in  VECTOR; 
MANEUVER  IN:   in  MANEUVER_TYPE; 

tgt_two_7n» 
soj_one_in, 

SOJ~TWO  IN:    in  YES_NO_TYPE; 
TURN_ON~PARAMETER_IN:   in  MANEUVER_START_TYPE); 

procedure  PUT_STATES<STATES:   in  VECTOR); 

function  GET_DERIVATIVES  return  VECTOR; 

function  GET_STATES  return  VECTOR; 

function  LOG_DATA  return  TARGET_LOG_DATA_TYPE; 

procedure  INITIALIZE; 

procedure  TGT_DATA(TGT_VEL_OUT:  out  VECTOR; 

TGT_POS_OUT:   out  SUPERJ/ECTOR); 

function  TGT_POS  return  SUPERJ/ECTOR; 

procedure  COMPUTE; 

function  TGT_ASPECT(RANGE_VEC:   in  VECTOR)  return  REAL; 

end  TARGETS; 

--  Targets  package 

--  This  package  contains  the  procedure  calls  which  will  initialize, 

--  setup,  computes  and  get  and  put  the  missile  state  vector  as  well 

--  as  calculating  the  necessary  parameters  to  calculate  the  state 

--  vector. 


with  MODEL_TYPES;  use  MODEL  TYPES; 

with  MATH;  use  MATH; 

with  ENVIRONMENT; 

with  REAL_MATRIX;  use  REAL  MATRIX; 

with  LAUNCHER; 

with  MISSILE; 

UITH  TEXT_IO;WITH  REAL  10; 


package  body  TARGETS  is 


LOGGED_DATA 
ASPECT" 
TGT2_ANGLE 
TGT_MACH 
TGT  HEAD  DOT 
TGT^HEAD^ANGLE 
TGT  VEL  NED 
TGTJ>OSIn€D 
TGT  VEL 


TARGET_LOG_DATA_TYPE  ;   --  Output  Vector 
VECT0RCI..2);   --  Target  Aspects 

REAL;  --  Relative  angle  of  tgt  2  to  tgtl 

REAL;  --  Target  Machs 

REAL;  --  Target  one  heading  angle  rate 

REAL;  --  Target  one  heading  angle 

VECTOR  (1..3);   --  Target  Velocity  Vector 
SUPERJ/ECTOR  (1..4);   --  Target  Position  Vectors 
REAL;  --  Magnitude  of  Target  Velocity 
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NO  OF  GS  : 

WEAVE~PERI0O  : 

TURN  ONJ/ALUE  : 

TURN~ANGLE  : 

BUILDUP_TIME  : 

TGT  RANGE  : 

SOJ~ANGLE 

MANEUVER  : 

TURN_ON_PARAMETER 

NSOJS 

NTGTS  : 

DERIVATIVES  : 

STATE  : 

G  HORZ  : 

OMEGA 

FSTART_MANEUVER  : 

START_TIME 

FINAL  HEAD  ANGLE: 


REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

VECTORd 
VECTOR< 

MANEUVER 

MANEUVER 
:    INTEGER 

INTEGER; 

VECTORd 

VECTORd 

REAL; 

REAL; 
boo lean ; 
REAL; 
REAL; 


--  Number  of  g's  pulled  in  maneuver 

--  Period  of  target  weave 

--  Time  maneuver  begins 

--  Angle  turned  through  (turn  and  run) 
--  Exponential  buildup  time 
..4);   --  LOS  Range  to  the  targets 
1..2);   --  Angle  to  SOJS  relative  to  LAC  az 
_TYPE;   --  Type  of  maneuver 
_START_TYPE; 

--  Number  of  stand  off  jammers 

--  Number  of  Targets 


..6); 
.6); 


--  Horizontal  g's  pulled  in  weave 
--  Freqency  of  the  weave 
--  Maneuver  start  flag 

■  Maneuver  start  time 

■-  Final  heading  angle  after  turn 


in  REAL; 


in  VECTOR; 
in  MANEUVER_TYPE; 


procedure  SETUP(ASPECT_IN, 

tgt2_angle_in, 
tgt_mach  in, 
no_of  gs_in, 
weave_perico_in, 
turn_on_value_in, 
turn_angle_in7 
buildup_time_in: 
tgt_range_in, 
tgt  alt  in, 
soj~angle_in: 
maneuverjn: 
tgt_two  in, 
soj  one~in, 

SOJ~TWO~IN:   in  YES_NO_TYPE; 

TURN_ONJ>ARAMETER  IN:   in  MANEUVER_START_TYPE)  is 
TEMP:  REAL; 
begin 

ASPECTd)  :=  DEG_TO_RAD*REAL(integer(ASPECT_IN*RAD_TO_DEG)  mod  360); 

--  Initial  Target  1  Aspect  (rad) 

TGT2_ANGLE:=TGT2_ANGLE_IN;       --  Tgt  2  angle  relative  to  tgt  1 

TGT  MACH  :=  TGT_MACH  I~N;   --  Initial  Target  Mach 

NO_OF_GS      :=     NO_OF  GS_IN; 

WEAVE_PER I 00 : =WEAVE~PER I OD_I N ; 

TURN_ON_VALUE:=TURN~ON  VALUE    IN; 

TURN~ANGLE:=     TURN_ANGfE_IN;  ~ 

BUILDUP_TIME:=BUILDUP_TIME    IN; 

TGT_RANGE  :=     TGT_RANGEJN; 

S0J_ANGLE   :=  SOJ  ANGLE   IN; 

MANEUVER      :=     MANEUVERJN; 

if  TGT  TUO  IN  =  NO  then 


--   LOS  Range  (feet) 


NTGTS:=1; 
else 

NTGTS: =2; 
end  if; 
if  SOJ  ONE   IN  =  NO  and  SOJ_TUO_IN  =  NO  then 

NSOJS :=0; 
elsif  SOJ_ONE   IN  =  YES  and  SOJ  TWOJN  =  NO  then 

NSOJS :=!;" 
elsif  SOJ_ONE_IN  =  NO  and  SOJ  TWO  IN  =  YES  then 

NSOJS~=1;~ 

TGT_RANGE(3):=TGT  RANGE(4); 

SOJ  ANGLE(1):=SOJ~ANGLE(2); 
elsif  SOJ_ONE_IN  =  YES  and  SOJ_TWO_IN  =  YES  then 

NSOJS :=2;~ 
end  if; 

TURN_ON_PARAMETER:=TURN_ON_PARAMETER_IN; 
for  I  in  1..4  loop 

TGT_POS_NED(I)(3):=-TGT_ALT_IN(I); 
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end  loop; 
end  SETUP; 


procedure  PUT_STATES(STATES:  in  VECTOR)  is 

begin 

TGT_P0S_NED(1):=STATES(1..3); 
end  PuOTATES; 


function  GET_DERIVATIVES  return  VECTOR   is 

begin 

DERIVATIVES(1..3):=TGT  VEL  NED; 

return  DERIVATIVES; 
end  GET_DERIVATIVES; 


function  GET_STATES  return  VECTOR  is 

begin 

STATE(1..3):=TGT_P0S_NED(1); 

return  STATE; 
end  GET  STATES; 


function  LOG  DATA  return  TARGET  LOG  DATA  TYPE  is 


begin 

LOGGED_DATA . REALJ/ALUE ( 1 ) 
LOGGED_DATA . REALJ/ALUE ( 2 ) 
LOGGED_DATA.REAL  VALUE(3) 
LOGGED~DATA . REAL  J/ALUE (4 ) 
LOGGED  DATA. REAL  VALUE(5) 
LOGGED~DAT A . REAL~VALUE  <  6 ) 
LOGGED_DATA . REALJ/ALUE ( 7) 
LOGGED_DATA . REAL  J/ALUE (8 ) 
LOGGEDJ)  AT A . RE AL  J/ALUE (9) 
return  LOGGED  DATA; 

end  LOG_DATA; 


TGT  POS  NED(1)(1); 

TGT~P0SJIED(1)<2); 
-TGT  POS  NED(1)(3); 

TGT~P0S~NED<2)(1); 

TGT  POSJJED(2)(2); 
-TGTJ>OSJJED(2><3); 
TGTJ/EL; 
TGT  MACH; 
TGTJ1EAD_ANGLE*RADJOJ>EG; 


procedure  INITIALIZE   is 
TGT2JTEMP_ANGLE:  REAL; 

LACJ'OSJUED    :   VECTOR(1 . .3); 

begin 

START  J"IME:=0.0; 

FSTART  J1ANEUVER : =f a I se; 

LACJ>OS  JIED : =LAUNCHER . LAC_POS; 

TGT  VEL:=TGT  MACH*ENVIRONMENT. SPEED  J)F_SOUND(-TGT  J>OS  JIED(1 )(3)); 

TGT~VELJIED<T):=TGT  VEL*C0S(ASPECT(1))J 

TGT  VELJIED<2):=TGT  VEL*SIN(ASPECT(1)); 

TGT~VELJiED<3):=0.07 

TGT~POS  J<ED< 1 )( 1 ) :=SQRT(TGT_RANGE( 1 )*TGT_RANGE( 1 ) - ( -LACJ>0SJJED(3)+ 

TGT_P0S_NED(1)(3))*(-LAC_P0SJJED(3)+TGT_P0SJJED(1)(3))); 
TGT_POS  NED(1)(2):=0.0; 
TGT_HEAD  DOT : =0.0; 
TGT~HEAD~ANGLE:=ASPECT(1  ); 

TGT2_TEMP  ANGLE :=TGT2  ANGLE+TGT_HEAD_ANGLE-PI; 
if  NTGTS  =  2  then 

TGT  POSJJED(2)(1):=TGTJ>OS  NED(1 )(1 )+SIN(TGT2_TEMP_ANGLE)* 

TGf_RANGE<2); 
TGTJ>OS  NED(2)(2):=TGTJ>OS  NED(1)(2)-COS(TGT2_TEMP_ANGLE)* 

TGT~_RANGE<2); 
if  TGT  POS  NED(2)(2)  /=  0.0  then 

ASPECT(2):=DEG_TO_RAD*REAL(INTEGER(RAD_TO_DEG*(ASPECT(1)- 
ATANCTGT  POS  NED(2)(2)/TGT  POS  NED(2)(1)))> 
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mod  360); 
else 

ASPECT(2):=ASPECT<1); 
end  if; 
else 

TGT_POS_NED(2)<1):=0.0; 
TGT_POS  NED<2)<2):=0.0; 
ASPECT(2):=0.0; 
end  if; 

if  NSOJS  ■  1  then 

TGT_POS_NED(3)(1):=COS(SOJ  ANGLE(1 ))*SQRT(TGT  RANGE<3)* 
TGT  RANGE(3)-(-LAC  POS  NED<3)+ 
TGT_POS_NED(3)(3))*(-LAC_POS_NED(3)+ 
TGT_POS_NED<3)(3))); 

TGT  POS  NED(3)(2):=SIN(SOJ  ANGLE(1 ))*SQRT(TGT  RANGE(3)* 
TGT_RANGE(3)-(-LAC_POS_NED(3>+ 
TGT  POS_NED(3)(3))*(-LAC  POS  NED(3)+ 
TGT_POS_NED<3)(3))); 

if  NSOJS  =  1  then 

TGT_POS_NED<4)<1):=0.0; 

TGT_POS_NED(4)<2):=0.0; 

end  if; 
elsif  NSOJS  =  2  then 

TGT_POS_NED(3)(1):=COS(SOJ_ANGLE(1))*SQRT(TGT_RANGE(3)* 
TGT_RANGE(3)-(-LAC_POS_NED(3)+ 
TGT  POS  NED(3)(3))*(-LAC  POS_NED(3)+ 
TGT_POS~NED(3)(3)>); 

TGT_POS  NED(3)(2):=SIN(SOJ_ANGLE(1))*SQRT(TGT_RANGE(3)* 
TGT_RANGE(3)-(-LAC_POS_NED(3)+ 
TGT  POS  NED(3)(3))*(-LAC_POS_NED(3)+ 
TGT~POS~NED(3)(3))); 

TGT_POS_NED(4)(1):=COS(SOJ_ANGLE(2))*SQRT(TGT  RANGE(4)* 
TGT_RANGE(4)-(-LAC_POS_NED(3)+ 
TGT_POS_NED(4)(3))*(-LAC_POS_NED(3)+ 
TGT~P0S_NED(4)(3))); 

TGT_POS_NED(4)(2):=SIN(SOJ_ANGLE(2))*SQRT(TGT_RANGE(4)* 
TGT_RANGE(4)-(-LAC_POS_NED(3)+ 
TGT_POS  NED(4)(3))*(-LAC  POS_NED(3)+ 
TGT_POS~NED(4)(3))); 
else 

TGT_POS_NED(3)(1):=0.0; 

TGT_POS_NED(3)(2):=0.0; 

TGT~POS  NED(4)(1):=0.0; 

TGT~POS~NED(4)(2):=0.0; 
end  if; 

if  MANEUVER  =  TURN  then 

FINAL_HEAD  ANGLE:=DEG  TO  RAD*REAL(integer((ASPECT(1 )+ 
TURN_ANGLE)*RAD~TO_DEG)  mod  360); 
elsif  MANEUVER  =  WEAVE  then 

OMEGA : =2 . 0*P I /WEAVE_PER 1 00 ; 
end  if; 
end  INITIALIZE; 


procedure  TGT_DATA(TGT_VEL_OUT:  out  VECTOR; 

TGT  POS  OUT  :  out  SUPER  VECTOR)  is 


begin 

TGT_VEL_OUT:=TGT_VEL_NED; 

TGT  POS  OUT:=TGT  POS_NED; 
end  TGT_0ATA; 


function  TGT_P0S  return  SUPER_VECTOR  is 

begin 

return  TGT_POS_NED; 


179 


end  TGT_POS; 


procedure  COMPUTE  is 

BUILDUP_FACTOR:  REAL; 
MANEUVER_START_VALUE:  REAL; 
TEMP_GS:   REAL; 
TGT2_TEMP_ANGLE:     REAL; 
begin 

if  not  FSTART_MANEUVER  then 

MISSILE.MANEUVER_VALUE(TURN_ON_PARAMETER,MANEUVER_START_VALUE); 
end  if; 

if  TURN_ON_PARAMETER  /=  FLIGHT  TIME  and  MANEUVER_START_VALUE  <= 
TURN_ON_VALUE  then 
if  nol  FSTART_MANEUVER  then 

START_TIME:=ENVIRONMENT.Time; 
FSTART_MANEUVER:=true; 
end  if; 
elsif  TURN_ON_PARAMETER  =  FLIGHT_TIME  and  MANEUVER  START  VALUE  >= 
TURN_ON  VALUE  then 
if  not  F"START_MANEUVER  then 

START_TIME:=ENVIRONMENT.Time; 
FSTART_MANEUVER:=true; 
end  if; 
end  if; 

if  FSTART_MANEUVER  and  ENVIRONMENT. Time<=(START  TIME+ 
BUILDUP_TIME)  then 
if  BUILDUP  TIME  =  0.0  then 

TGT_HEAD  DOT:=SIGN(TURN_ANGLE)*G*SQRT(NO_OF_GS*NO_OF_GS- 

1.0)7TGT  VEL; 
G_HORZ:=TAN(ACOS(1.0/NO_OF_GS)); 
else 

BUILDUP_FACTOR:=1.0-EXP( (ENVIRONMENT. Time-START_TIME)* 

(-4.60517)/BUILDUP_TIME); 
if  MANEUVER  =  TURN  then 

TEMP  GS:=NO_OF_GS*BUILDUP_FACTOR; 
if  TEMP  GS  <  1.0  then 

TEMP_GS:=1.0; 
end  if; 

TGT_HEAD  DOT:=SIGN(TURN_ANGLE)*G*SQRT(TEMP_GS*TEMP_GS- 
~1.0)7tGT_VEL; 
elsif  MANEUVER  =  WEAVE  then 

G_HORZ:=BUILDUP_FACTOR*TAN(ACOS(1.0/NO_OF_GS)); 
end  if; 
end  if; 
end  if; 

if  MANEUVER  =  TURN  and  FSTART  MANEUVER  then 
if  (ASPECT(1)+TURN_ANGLE)<0.000  then 

if  TGT_HEAD_ANGLE>ASPECT(1)  and  TGT_HEAD_ANGLE  <= 
FINAL  HEAD  ANGLE  then 

TGT_HEAD_ANGLE : =F I NAL_HEAD_ANGLE ; 
else 

TGT  HEAD  ANGLE :=ASPECT(1 )+(ENVIRONMENT.Time-START_TIME) 
*TGT_HEAD_DOT; 
end  if; 
elsif  (ASPECT(1)+TURN_ANGLE)  >=2.0  *  PI  then 

if  TGT_HEAD  ANGLE<ASPECT(1 )  and  TGT_HEAD_ANGLE  >= 
FINAL  HEAD  ANGLE  then 

TGT_HEAD_ANGLE : =F I NAL_HEAD_ANGLE ; 
else 

TGT_HEAD_ANGLE:=ASPECT(1)+(ENVIRONMENT.Time-START_TIME) 
*TGT_HEAD_DOT; 
end  if; 
elsif  SIGN(TURN  ANGLE)<0.0  then 

if  FINAL_HfAD_ANGLE  =  0.0  and  TGT_HEAD_ANGLE  >=6.20  then 
TGT_HEAD_A"NGLE :  =F  I  NAL_HEAD_ANGLE  ; 
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elsif  TGT_HEAD_ANGLE<=FINAL_HEAD_ANGLE  then 

TGT_HEAD_ANGLE:=FINAL_HEAD_ANGLE; 
else 

TGT  HEAD  ANGLE:=ASPECT<1 )+(ENVIRONMENT.Time-START_TIME)* 
TGT~HEAD~DOT; 
end  if; 
else 

if  TGT  HEAD_ANGLE>=FINAL_HEAD_ANGLE  then 

TGT~  HEAD_ANGLE : =F I NAL_HEAD_ANGLE ; 
else 

TGT  HEAD_ANGLE:=ASPECT(1)+(ENVIR0NMENT.Time-START_TIME)* 
TGT~HEAD~0OT; 
end  if; 
end  if; 
elsif  MANEUVER  =  WEAVE  and  FSTART_HANEUVER  then 
TGT_HEAD  ANGLE :=ASPECT(1)-G*G_H0RZ*C0S(OMEGA* 

( ENVIRONMENT . T i me- START_T I  ME ) )/TGT_VEL/OMEGA; 
end  if; 

if  TGT_HEAD  ANGLE  <  0.0  or  TGT_HEA0_ANGLE  >=  2.0*Pl  then 
TGT  HEAD_ANGLE:=DEG  TO_RAD*REAL<integer(TGT_HEAD_ANGLE 
*RAD_TO_DEG)  mod  360); 
end  if; 

TGT  VEL_NED(1):=TGT_VEL*COS(TGT_HEAD_ANGLE); 
TGT~VEL_NED(2):=TGT  VEL*SIN(TGT_HEAD_ANGLE); 
TGT  VEL:=MAGNITUDE(TGT_VEL_NED); 

TGT~MACH:=TGT_VEL/ENVIRONMENT.SPEED  OF_SOUN0(-TGT_POS_NED(1 )(3)); 
if  NTGTS  =  2  then 

if  MANEUVER  =  TURN  then 

TGT2_TEMP_ANGLE : =TGT_HEAD_ANGLE+TGT2_ANGLE- P I ; 
TGT_POS_NED(2)(1):=TGT_POS_NED(1)(1)+SIN(TGT2_TEMP_ANGLE)* 

TGT_RANGE(2); 
TGT_POS_NED(2)(2):=TGT_POS_NED(1)(2)-COS(TGT2_TEMP_ANGLE)* 
TGT_RANGE(2); 
else 

TGT  POS  NED(2)(1):=TGT  POS_NED(1 )(1 )+SIN(TGT2_ANGLE)* 

TGf_RANGE(2); 
TGT_POS_NED(2)(2):=TGT  POS  NED(1 )(2)-COS(TGT2_ANGLE)* 
TGT~_RANGE(2); 
end  if; 
end  if; 
end  COMPUTE; 


function  TGT_ASPECT(RANGE_VEC:   in  VECTOR)  return  REAL  is 

ASPECT  :  REAL; 
begin 

if  RANGE_VEC(2)  /=  0.0  then 

ASPECT :=0EG_T0  RAD*REAL(INTEGER(RAD  TO_DEG*(TGT_HEAD_ANGLE- 
ATAN(RANGE_VEC(2)/RANGE_VEC( 1 ) ) ) )mod  360); 
else 

ASPECT :=TGT_HEAD_ANGLE ; 
end  if; 

return  ASPECT; 
end  TGT_ASPECT; 


end  TARGETS; 


-  Environment  Package 

•-  This  package  contains  procedures  to  set  atmospheric  conditions 
•-  according  to  altitude.  It  uses  standard  temperature  and  pressure 

-  for  each  altitude  zone. 


with  MATH;  use  MATH; 
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package  ENVIRONMENT  is 

procedure  SET_TIME( 

NEW_TIME  :  in  REAL); 

function  Time 
return  REAL; 

function  AIR_DENSITY(ALTITUOE  :  in  REAL) 
return  REAL; 

function  SPEED_OF_SOUND (ALTITUDE  :  in  REAL) 
return  REAL; 

end  ENVIRONMENT; 


--  Environment  Package 

--  This  package  contains  procedures  to  set  the  time,  return  the  time, 

--  compute  position  and  gravity  vectors  due  to  the  earth's  curvature, 

--  and  set  atmospheric  conditions  according  to  attitude. 


with  MATH;  use  MATH; 

with  REAL_MATRIX;  use  REAL_MATRIX; 

package  body  ENVIRONMENT  is 

SYSTEM_TIME  :  REAL  :=  0.0; 


procedure  SET_TIME( 

NEW_TIME  :  in  REAL)  is 
begin 

SYSTEM_TIME  :=  NEW_TIME; 
end  SET_TIME; 


function  TIME  return  REAL  is 
begin 

return  SYSTEM_TIME; 
end  Time; 


function  AIR_0ENSITY( 

ALTITUDE       :  in  REAL)  return  REAL  is 

TO  :  constant  :=  518.69; 
RHOO  :  constant  :=  2.3769E-3; 

H1  :  constant  :=  36500.0; 
T1  :  constant  :=  389.99; 
RH01  :  constant  :=  6.9443E-4; 

H2  :  constant  :=  82000.0; 
T2  :  constant  :=  389.99; 
RH02  :  constant  :=  7.8931E-5; 

H3  :  constant  :=  156000.0; 
T3  :  constant  :=  508.79; 

A1  :  constant  :=  (T1  -  TO)  /  H1; 

A3  :  constant  :=  (T3  -  T2)  /  (H3  -  H2); 

INV_T0  :  constant  :=  1.0  /  TO; 

EXP_0  :  constant  :=  -(G  /  (A1  *  R)  +1.0); 
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EXP_C0EF_1  :  constant  :=  -G  /  (R  *  T1); 

INV  T2  :  constant  :=  1.0  /  T2; 

EXP_2  :  constant  :=  -(G  /  (A3  *R)  ♦  1.0); 

RHO  :  REAL; 
TEMP  :  REAL; 

begin 

if  ALTITUDE  <  H1  then 

TEMP  :=  TO  +  ALTITUDE  *  A1; 

RHO  :=  RHOO  *  REAL(TEMP  *  INV_T0)  **  REAL(EXP  0); 
elsif  (ALTITUDE  >=  H1)  and  (ALTITUDE  <  H2)  then 

RHO  :=  RH01  *  EXP(EXP_COEF_1  *  (ALTITUDE  -  HD); 
elsif  ALTITUDE  >=  H2  then 

TEMP  :=  T2  +  (ALTITUDE  -  H2)  *  A3; 

RHO  :=  RH02  *  REAL(TEMP  *  INV_T2)**REAL(EXP_2); 
end  if; 
return  RHO; 
end  AIR_DENSITY; 


function  SPEED  0F_SOUND( 

ALTITUDE       :  in  REAL)  return  REAL  is 

TO  :  constant  :=  518.69; 

H1  :  constant  :=  36500.0; 
T1  :  constant  :=  389.99; 

H2  :  constant  :=  82000.0; 
T2  :  constant  :=  389.99; 

H3  :  constant  :=  156000.0; 
T3  :  constant  :=  508.79; 

A1  :  constant  :=  (T1  -  TO)  /  H1; 

A3  :  constant  :=  (T3  -  T2)  /  (H3  -  H2); 

TEMP  :  REAL; 
SOUND_SPEED  :  REAL; 

begin 

if  ALTITUDE  <  H1  then 

TEMP  :=  TO  +  ALTITUDE  *  A1; 

SOUND_SPEED  :=  SORT (GAMMA  *  R  *  TEMP); 
elsif  (ALTITUDE  >=  H1)  and  (ALTITUDE  <  H2)  then 

TEMP  :=  T1; 

SOUND_SPEED  :=  SORT (GAMMA  *  R  *  TEMP); 
elsif  ALTITUDE  >=  H2  then 

TEMP  :=  T2  +  (ALTITUDE  -  H2)  *  A3; 

SOUND_SPEED  :=  SORT (GAMMA  *  R  *  TEMP); 
end  if; 

return  SOUND  SPEED; 
end  SPEED_OF_SOUND; 

end  ENVIRONMENT; 
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